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APRESENTACAO 


Entre os objetivos que tive eia vista ao es 
crever este livro quero destacar o mais importance 
ou seja aquele de apresentar um texto que permita 
atender as necessidades de todas as .Escolas na im- 
plantaqao dos seus cutsos iniciais de Informatica 
estruturados sobre o TK 90X, 

Assim a Microdigital fabrica o fantastico 
TK 90X, a Livraria e Editora Nobel S.A. possibilita 
a produqao e a distribuiqao do livro e a mim cabe a 
missao mais simples ou seja elaborar o proprio. 

Espero que este livro, em conjunqao. com o 
manual que acompanha' o TK 90X, permita a voce esti- 
mado(a) 1eitor(1eitora) dominar a linguagem BASIC 
toda especial do seu TK 90X, 

Alias ja escrevi varios livros para oTK 85 
e para o TK 2000 II (voce ja os conhece?) e este 
vai lhe dar condiqao de usar o unico micro pessoal 
lanqado no Brasil ate agora,que realmente merece a 
classificaqao de "software machine”, um titulo inco 
mum porem merecido, devido a facilidade do seu uso, 
os seus grahdes recursos e por que nao destacar o 
seu preqo acessivel. 

Recentemente tive a felicidade de conhecer 
a figure eminente do padre e professor Waldemar 
Valle Martins que me presenteou com um dos seus li- 
vros ~ "A liberdade de ensino” - que contem impor- 
tantes reflexoes a partir da situaqao do Brasil, 
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Uma das primeiras frases do livro e: "Sn- 
tende-se por Ixberdade de ensino a prerrogativa de 
escolher um determinado genero de educagao". 

Sem. entrar na analise do conteudo complexo 
desta assertiva; o que posso dizer ilustre educador 
Waldemar Valle Martins e que alem das Escolas, das 
revistas, dos.jornais, do radio, da televisao e prin 
cipalmente dos templos que possibilitam a educaqao 
surge agora um outro fantastico meio para chegar a 
mesma ou seja o microcomputador TK 90X. 

Este livro e um guia para dominar o manejo 
do seu TK 90X. 

Um micro como o TK 90X realmente nao dis- 
crimina ninguem. 

Todos podem adquiri-lo e utilizar no TT refu 
gio" domiciliar ou na pior das hipoteses utiliza- 
lo nas escolas do 19, 29 e 39 graus ou ainda nas era' 
pres as. 

0 TK 90X permite obter resultados que var- 
rem nao apenas a area educacional', mas tambem a tec 
nica, o lazer e os pequenos negocios. 

0 livro "BASIC NO TK 90X Tf e o primeiro de 
uma grande serie que pretendo lanqar para possibili 
tar a todos o completo dominio desta maquina fabulo 
sa - TK 90X. 

ANTES DE COMEQAR 0 LIVRO NAO ESQUECA 
QUE O SEU TK 90X fi TOTALMENTE COMPA- 
TIL COM O ZX—SPECTRUM 



Foi continua e cada vez mais indispensavel 
a ajuda da minha querida esposa e amiga Nilza Maria 
e dos mens tres filhos Victor Junior, Sergio e Ale¬ 
xandre (Sacha para os intiraos, que agora ja aju- 
dou...). 

Eu sei que para aqueles que me prestigiam 
usando os raeus livros de Informatica, a primeira 
parte da frase acima parece um "repeteco" um tanto 
s o n s o t « • 

Pois entao vou melhorar o’ meu depoimento 
dizendo que Nilza Maria ja me ajudava com os meus 
livros na minha primavera (escrevi o meu primeiro 
livro era 1958) e no verao da minha existencia cola- 
bora revendo, corrigindo e indicando a melhor forma 
de apresentar um assunto. .• 

Estou a um -passo de entrar no outono da mi 
nha vida e com que alegria vejo o primeiro livro 
publicado pelos meus filhos Victor Junior e Sergio. 

Estamos certos Nilza Maria e eu, que se 
Deus nos perraitir chegar ao inverno da existencia 
ele nao sera frio, mas rauito ao contrario acalenta- 
dor e repousante por termos deixado um bom exemplo, 
pelo menos para os nossos filhos. 

Muito obrigado ao amigo George Kovari, di- 
retor da Microdigital, por mais uma vez ter me enga 
jado neste projeto rauito mais educacional do que co 
mereia1. 



Estou seguxo que o TK 90X ira modificar de 
forma substancial o ensino , dinamizando-o e princi- 
palmente colocando a disposiqao dos que estudam e 
trabalham os mais fantasticos recursos para texto, 
calculos, graficos e som. 

• Tt Ariga to 11 , Toshiro Iqueda, datilografo,edi 
tor e amigo de muitos anos (dati1ografou todos os 
meus livros a partir do terceiro e hoje ja tenho 
mais de cinquenta titulos pub 1icad os...). 

Finalmente e com muita sinceridade sou gra 
to mais uma vez aos amigos da Livraria Nobel S.A., 
Ary K. Benclowicz e Luigi Zamboni por acreditarem 
em tudo o que escrevo e por investirem nisto de cor 
por e alma colocando toda a empresa a minha disposi. 
qao. 

Assim ate parece facil escrever e editar 
urn 1ivro..* 
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Capftulo 1 

Palavras-chave ou seja ensinando ao 
TK 90X o que deve ser feito 


Urn micro nao e nen ua pouco tao inteligen— 
te conto voce ... 

Ele precisa receber instru^oes claras de 
voce sobre tudo o que deve fazer. 

Voce sabia que os micros nao sao tao inte- 
ligentes como 3S pessoas? 

0 TK 90X nao pode fazer nada por si pro- 


pr 10 . 

Ele necessita de voce caro(a) leitor (lei— 
tora) para dizer-lhe o que deve ser feito. 

Os hunanos, para entender-se com os micros 
e principalmente para dar-lhes ordens,desenvolvcram 
uma serie de linguagens, ohamadae de alto n^ue^tais 
como o FORTH, PASCAL, COBOL ou o BASIC. 

Todas tem suas proprias regras de sintaxe, 
as quais sao ouito mais simples e restritas do que 
as que exige ua idioma falado ou escrito entre pes¬ 
soas como e o caso do Portugues. 

Cad a uma das palavras que integram estas 
linguagens de alto nlvel nao podem ser entendidas 
diretanente pelo microprocessador (ou seja o "cere - 
bro") do TK 90X. 

Ua microprocessador so pode executar micro 
instru$oes do seu particular idioma, cujo 
linguagem de mdquina. 


note e 
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Desta forma qualquer palavra de urn idioma 
de alto nivel esta formada por varias micro instru- 
qoes concatenadas de tal forma que, finalmente, rea 
lizam o que o(a) programador(programadora) espera 
das mesmas. 

Todos os idioraas de alto nivel, citados 
acima, foram desenvolvidos por pessoas de lingua in 
glesa e consequentemente as palavras-chave sao em 
Ingles. 

A linguagem de alto nivel que iremos apr'en 
der para dar ordens ao TK 90X chama-se BASIC e no 
lugar de ter milhares de palavras (algumas com du- 
plo e ate triplo sentido) como o Portugues y tern apro 
ximadamente 90 palavras. 

£ de alto nivel e ao mesmo tempo muito sim 


p 1 e s « . « 

Assim como voce diz ao seu "caozinho"-fila 
" senta!* ou "delta ail" voce’(com um pouco mais de 
delicadeza...) pode pedir para o TK 90X que entre 
em “aqao" usando palavras simples tais como: 

PRINT, LET, LIST etc. 

Naturalmente, ainda nao da para mandar es- 
tas ordens por via oral. 

Voce ordenara isto para o seu TK 90X uti- 
lizando o seu teclado. 

Acho entretanto, que era alguns anos estas 
instrugoes poderao ser enviados atravesdo Tnovimen- 
to sincronizado da sua lingua dentro da sua boca 
acompanhada de inspiraqoes e expiraqoes... 

As palavras mais importantes que o TK 90X 
entende sao as chamadas palaVTae~chaVe ♦ 

Todas as palavras-chave do TK 90X estao im 
pressas na cot bvanoa nas teclas, perto da letra 


principal * 


Assira por exemplo voce encontra a palavra- 
chave LET na tecla L a palavra-chave PRINT na tecla 
P, a palavra-chave LIST na tecla K, etc. 

Todas as palavras chave em branco no seu 
TK 9ffx sao chamadas de comandos . 

Sao elas que indicam ao TK 9 tx o que .deve 
ser feito como PRINT (imprima), LOAD (carregue) ,'NEW 
(novo), RUN (execute), GOTO (va para), etc. 

Um TK 90X pode "carregar", "executar" e "ir 

para" ? 

Nao se amofine r es pei tad o (a) l.ei tor (lei to-, 
ra) vamos explicar tudo nos minimos detalhes, daqui 
para frente... 






Capftulo 2 

Como se pode imprimir (PRINT) 
numeros na tela do seu aparelho de T.V. 


Esteja seguroque a tela da T.V.esteja lim 
pa e contenha apenas a mensagem 


TK 90X-Color Computer 


cores 


Olhe agora com atenqao no teclado e veja 
que no lado direito do teclado voce tern a tecla 
ENTERj. 

Aperte a mesma. 

Note que a mensagem 

^ TK 90X-Color Computer ^ 

desaparece e no seu.lugar surge um pequeno retang'u- 
lo (cursor) piscando K . 

_ Caso voce nao possa afirmar que esta vendo 

um E entao precisa ajustar o seu aparelho de T.V, 
0 piscando e uma forma do TK 90X lhe 

dizer que ele quer que voce lhe envie uma pet ZctWCk^ 
chave , 

Para nao decepcionar o seu TK 90X apevrte? 
por exemplo a tecla P, 
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Aparecera na tela a linha 
PRINT |T| 

Deu para voce perceber que o B "piscan- 
te n foi substituido agora por um | L~| piscando? 
Uoootimo! 

0 jT\. piscando significa que o TK 90X estS 
esperando'agora que voce teple uma letra ou um nume 


r o. 

Vamos entrar com o numero 10. 

Para tanto voce ericontrara o 1 .na primeira 
tecla a esquerda e acima no teclado e o 0 (zero) na 
outra extreraidade e a direita. 

A barra cortando o zero (0) e para que vo¬ 
ce nao faqa confusao com a letra 0 11 • 

Bern aperte a tecla ”1" e em seguida a te¬ 
cla "0" e a seguir aperte a tecla ENTER . 

0 que aconteceu? 

Resp.: Voce disse para o .TK 9$X que imprimisse 

(PRINT) o numero 10 na tela da T.V. 

E e o que realmente vai acontecer*.. 


Tente agora imprimir outros nfimeros na te¬ 
la e para tanto tecle o seguinte: 


| PRINT 

seguido por 

33447 

e 

por 

ENTER 

I PRINT 

seguido por 

2237. • 

e 

por 

ENTER 

PRINT 

seguido por 

999 

e 

por 

ENTER 


Voce percebera que cada numero novo e im- 
presso em uma nova linha abaixo do ultimo numero* 
Nao se preocupe (por enquanto) se algo 
oeorrer errado. 

Neste caso tome a decisao mais elementar 
o TK 90X da tomada e ligue novamente. 
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Pode comeqar tudo de novo e tecle certo 
dax para frente para nao ter que repetir esta estra 
nha operaqao de inicializaqao... 

Porem, se voce entrar com um numero bem 
grande como 

print] 987654321 ENTER 

o seu TK 90X ira apresenta-lo de outra forma, 

0 TK 90X usa uma nota5ao especial para os 
numeros grandes e assim aparecera na tela. 

9.8765432 E+8 

0 E+8 significa: mova o ponto decimal ". TT 
(e a nossa classica-vxrgula decimal ",") oito posi- 
qoes para a direita quando entao -volta-se a situa- 
qao original 987654321 (so que o 1 nao aparece na tela)* 
Assim se tivessemos o numero 9.87654321 E-5 
isto significa que temos um numero muito pequeno e 
deve-se mover o ponto .decimal, einao posigoes para a 
esquerda ou seja o numero e 0.0000987654321, 

Geralmente voce nao ira precisar desta no- 
taqao, a nao ser que esteja elaborando programas on 
de sao feitos calculos que resulteia em numeros mui¬ 
to grandes ou muito pequenos. 

Costuma-se chamar esta notaqao de exponen - 

oial . 

Nao esque 9 a portanto que: 

ENTER -► Diz ao TK 90X que voce terminou de teclar al- 

go e deseja que o mesmo faqa algo. 

PRINT -Diz ao TK 90X para imprimir algo na tela. 

. Por'enquanto so impriraimos numeros, mas logo 

em seguida voce ira aprender a imprimir pala- 
vras, frases e respostas para operaqoes. 

0 Executado 0:1 0 TK 90X imprime esta mensagem na telA,paj 

ra lhe indicar que ja fez o que voce Ihe 
pediu ou ao menos ele pens a isto**::. 


PRINT 
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Cursor K —** 0 TK 90X esta esperando que voce aperte uma 
palavra-chave. 

Cursor K —^ 0 TK 9j5x ira interpretar a proxima coisa 

que voce ira teclar como uma simples letra 
ou numero. 


Cada vez que se aperta uma tecla, algo su- 
cede (ou ao menus predispoe-se a suceder) na tela* 
Neste sentido, o seu melhor colaborador e 
o cursor que esta representado na tela por uma le¬ 
tra que esta piscando e que lhe indica o mocto no 
qual o TK 90X esta predisposto a trabalhar. 


Voce ja conhece os modes K (de keyword * 
palavra-chave) e L (de letter = letra) e ira apren- 
der adiante o uso dos modos G (de graphics - grafi- 
co), C (de capitals = maiusculas) e E (de extended- 
ampliado ou estendido)♦ 



Capftulo 3 

Imprimindo palavras na tela 


Chegou o momento de fazer algo raais inte- 
ressante do que simplesraente ver numeros na tela. 

Aperte a tecla "P" para obter a palavra- 
chave PRINT na tela. 

Agora procure a tecla marcada com as pala¬ 
vras em verraelho 

Voce encontrara esta tecla a direita na 1 
nha de baixo do teclado. 

Mantenha esta tecla preSsionada para baixol 

....I 

com urn dedo e aperte o "P" com um.dedo da outra mao.- 

Caso voce tenha feito tudo corretaraente o 
TK 90X lhe imprimira os dois caracteres em vermelho 
que aparecem na tecla P e na tela da T.V. podera 
ver agora: 

PRINT” 

& estes dois caracteres ou "pinguinhos” cha 
ma-se de aspas» 

Agora tecle.PRINT "Maravilhoso" 

0 que, nao consegue fazer isto? 

Tambem, nao expliquei como fazer para es- 
crever uma letra maiuscula e depois ter o resto com 
minusculas,.. . 
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Ai vai, o procedimento para se obter isto. 

Em primeiro lugar voce deve fazer o seu 
TK 90X entrar no modo C (ja disse que C e a inicial 
de "capitals” que em ingles signifies maiusculas). 

Mantendo apertada CAPS SHIFT pressione a 
letra M e veja eomo ela sai impressa como maiuscula. 

Case voce queira permanecer neste modo por 
muito tempo basta apertar simultaneamente as teclas 
CAPS SHIFT e CAPS LOCK e ai todas as letras se- 
rao maiusculas. 


0 cursor ficara no modo C ate que voce 

novameate e simultaneamente 

eva 

Maravilhoso" ENTER 

e a palavra "Maravilhoso" aparece na tela porem sem 
aspas e sem a palavra chave PRINT . 

Ja da para concluir qu‘e se voce quiser que 
o TK 90X use palavras basta que as mesmas apareqam 
entre os sinais de aspas e apos o comando PRINT, 

Isto e valido para letras e numeros. 

Apenas para constatar a sua superioridade 
sobre o TK 90X mande o mesmo imprimir algumas opera 
qoes tais como 

"3+4=9" ENTER 
"10-5=4" |ENTER 

Ue, ue, 

0 meu, digo o seu, TK 90X nao sabe nem so^ 
mar e nem subtrair? 

Resp.^ 0 seu’TK 90X fez o que voce mandou ele fazer* 

Ele nao somou 3+4 e tao pouco diminuiu 5 de 10. 

Ele apenas imprimiu o que voce mandou ele imprimir* 


PRINT 

PRINT 


saia do mesmo apertando 
CAPS SHIFT e CAPS LOCK 
Repetindo, escr 


PRINT 
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Note que , " + " e " = " sao os caracteres 
vermelhos nas letras J,K e L respectivamente e para 
obter os mesmos voce deve manter pressionada a te- 
cla SYMBOL SHIFT enquanto aperta cada utna destas te 
clas . 

Tenteagora entrar com a seguinte mensagem: 

PRINT "A guerra nas estrelas e o maior pe- 
rigo da atualidade." 

£ evidente, que para entrar com esta mensa 
gem, no final de tudo voce deve apertar a tecla 
ENTER ou seja logo apos o segundo conjunto de as- 


Note que para se obter os espaqos em bran- 
co entre as diversas palavras voce deve apertar a 
tecla SPACE (espaqo). 

Caso voce cometa algum erro enquanto esti- 
ver teclando "pode.passar a borra'cha" no mesmo e pa 
ra tanto basta manter abaixada. a tecla CAPS SHIFT' 
e apertar a tecla 0 (zero) que tem a palavra DELETE 
impressa em branco acima da mesma, 

•Uma traduqao para o DELETE pode ser el/Cmi 
ne ou apague . 

Desta forma com esta operaqao ppaga-se o 
caractere imediatamente a esquerda do cursor. 

Voce ja percebeu que o TK 90X raantem a li- 
nha de baixo para mensagens? 

Quando voce tecla uma instruqao para o 
TK 90X ela setnpre aparece nesta parte da tela. 

Tambem quando o TK 90X informa que esta tu 
do 0 Executado 0:1 o mesmo sai la embaixo... 

Esta parte da tela e chamada de espago pci 
ra o trabalho ♦ . 

0 TK 90X usa o resto da tela para fazer o 
que voce mandar que ele faqa* 
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Recordando 



Diz ao TK 90X para iniprimir na tela da T.V. 
tudo o que estiver dentro das aspas. 

As aspas nao irao aparecer na tela. 

Se voce mantem esta tecla pressionada enquan- 
to aperta uma outra tecla, obtera o caractere, 
simbolo ou palavra-chave que aparece em ver- 
melho nesta t ecla-r 

Por exemplo, [SYMBOL SHIFT] e tecla "Z" lhe 
dara os dois pontos : . 



Se voce mantem esta tecla abaixada enquanto 
aperta uma tecla que contem uma letra, a mes- 
ma sera impressa n a forma maiu scula na tela. 
Caso voce utilize CAPS SHIFT com uma tecla 
que contem um numero, obtera a funqao que apa 
rece em branco acima da tecla numerica. 


DELETE -► Pode-se apagar ou eliminar um caractere in- 

“ trod uzido errada mente mantendo abaixada a te¬ 

cla (CAPS ' SHIFT) enquanto voce aperta a tecla 
0 isto e abaixa-se as duas simultaneamente. 
Com esta agao apaga-se o caractere imediata- 
mente a esquerda do cursor. 



Capitulo 4 

Fazendo operagoes matem&icas 

no TK 90X 


Voce seguiu as rcinhas recomendaqoes ate 

agora e nao estas mais na estaca zero. 

Porem o seu aprendizado deve aumentar em 
velocidade e para tanto deves seguir a seguinte re- 
comendagao: quando estiveres junto a raim (TK 90X)de 
ves estar tranquilo(a) relaxado(a) e sem nenhum ti- 
po de temor, visto que, a nao ser que me maltrates 
fisicamente por mais absurdos que possas escrever 
nao iras me machucar. 

Eo (TK 90X) irei auxil iatido-o(a) continual 
mente indicando gs seus erros e apresentando~lhe os 
resultados. 

Voce pode aumentar a velocidade de leitura 
do livro e ir tao depressa quanto queiras com a con 
diqao de que nao titubeies em voltar para tras quan 
do achares isto necessario, 

Eu sei que voce nao sabe nada e por esta 
razao estou indo pouco a pouco, porem agora vamos 
um pouco mais rapido e voce deve se preparar para 
um esforgo um pouco raaior, 

Somas, subtraqoes, multiplicagoes,divisoes 
e exponenciagoes serao importantes para calculos ma 
tematicos, estatisticos, fisico e por que nao dizer 
ate para os jogos, graficos e para a musica* 
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Somar, subtrair, raultiplicar, dlvidir 
elevar e algo muito simples para o seu TK 90X. 

Simbolo Significado para o TK 90X 

= me ordenam deixar "algo' 1 IGUAL a "algo" 

+ me ordenam SOMAR 

- me ordenam SUBTRA1R 

* me ordenam MULTIFLICAR 

/ me ordenam PIVIDIR 

i me ordenam ELEVAR 

Tabela 1 
Comece fazendo 


PRINT 3+4 

e em seguida aperte o ENTER .• 

No topo da tela aparece a resposta 7 e co- 
mo voce percebe o seu TK 90X sabe somar. 

Note que no Capitulo 3 deu impressao que 
ele nao sabia fazer isto... 

Voce pode raandar o TK 90X fazer uma soma 
bem maior do que esta. 

Tec le 

PRINT 10+15+20+25+30+35+9999 

Assim que voce apertar ENTER o seu TK 90X 
Ihe da imediatamente a resposta 

10 134 

em muito raenos que um segundo . 

Vai ser rapido assim la nos.*. 

Voce pode subtrair, dividir, raultiplicar. 


elevar 
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Na Tabela 1 voce ja notou que para indicar 
a multiplicaqao usa-se o asterisco no lugar do 
classico "X", para a divisao usa-se a barra "/" e 
para a exponenciaqao (elevagao a uma certa poten- 
cia) a flecha para cima 

Teste a habilidade do seu TK 90X efetuando 
os seguintes calculos. 


12,56636 
3.0388032 
265452.31 
1617065 
1.1920929E-7 
30 


PRINT 4*3.14159 -- 

PRINT 13/4.278 --- 

PRINT 5392 *640 / 13 - 

PRINT 4984*328 - 55555/3.141 
PRINT 13*2 - 13*13 -- 



Nao esqueqa que em cadacaso para sair o 
resultado indicado a direita voce deve teclar o 
ENTER | . 

Comodo e muito facil, nao e? 

A ordem de prioridade com que o TK 90X rea 
liza as operaqoes depende do operador que intervem*- 



Tabela 2 


Para operadores de tnesma prioridade, o 
TK 90X executara as operates da esquerda para a di 
reita. 

Nestas condi^oes quando temosj 
4984*328 - 55555 /3.141 
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o TK 90X faz a multiplicagao (4984 *328) depois a 
divisao (55555/3-141) e finalmente subtrai este re- 
sultado do primeiro. 

As operagoes dentro dos parenteses se efe~ 
tuam primeiro, seguindo dentro dos mesmos a ordem 
de prioridade indicada na Tabela 2. 

Casb haja varies niveis de parenteses, os 
mesmos sao abertos de dentro para fora. 

Assim para efetuar o calculo 


2.38 1 * 35 + 7X3,35 
4,48 X325 - 111 


esento na > 
forma classics 


Basta escrever; 

PRINT (2-38+1-35 + 7 * 3-35)/(4.48*325 -777) 

Tecle ENTER e deve obter -039284065 

Comp treininho para sentir a destreza do TK 90X va- 
mas efetuar os seguintes calculos: 


7 X S 0,75 + 
2 X3,48 -4 


4,75 + 


3,98 X 7,47 - 19 


i,72 _ 


5,28 


10 32 + - 5 25^’^ 

LV,:> 4,43 ’ 

, , c , . 2*28 ^ 1,28 x 
) ^>^3 + m T4 a~TT' 


4,53 ’ 


2,77 


.0,73 

1,77^’ 8 + 1 


Para obter os resultados,basta escrever 

a) PRINT (7*5 + .75 + 13)/(2*3.48 - 4) ( feNTEBb 

b) PRINT (4.75+(3.98*7.47-19)/(3+.72-5.28))/(10.32+9.28/4.43 - 

5.25+ .21) (ENTERD 


c) PRINT 4.53+2.28/4.53+.25+1.28/2.77+.31+.73/(1.77+.18+1) 


NTEH) 
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Voce deve obter as seguintes respostas: 

a) 12-299294 

b) 0.11453544 

c) 7.3724276 


Nao esqu ega entao que: 

0 sinal de "mais" diz ao TK 90X para adicionar o 
proximo numero ao anterior. 

0 sinal de "menos" diz ao TK 90X para subtrair o nu 
mero seguinte do imediatamente anterior. 

0 asterisco (ou a "estrelinha") ou o sinal de multi 
plicagao ("vezes") diz ao TK 90X para multiplicar 
do is nutneros. 

Nao use para a multiplicagao o "antigo 1 ' X pois o 
TK 90X nao entende isto como multiplicagao. 

A barra e o sinal de divisao para o TK 90X. 

Ele nao entende o simbolo como sendo indicador 
da operagao de divisao. 

Este e o sinal para a operagao de elevar a alguma 
potencia (inteira ou decimal). 

£ importance que na elevagao a base sempre seja po™ 
sitiva. 

Este. e o simbolo para exprimir a IGUALDADE. 

0 que esta entre parenteses e sempre efetuado em 
primeiro lugar. A abertura de varios niveis de pa¬ 
renteses e sempre de dentro para fora. 


747-528 


9 








Capftulo 5 

Obrigado TK 90X pela sua memorial!! 


Voce sabe que o TK -90X pode lembrar das 

co is as ? 

Voce pode pensar na raemoria do TK 90X como 
sendo constituida de milhares de caixas vazias, 

Em cada uma destas caixas de memoria o 
TK 90X pode guardar ou anazenar um numero ou uma 
palavra que voce queira que ele lembre. 

■Suponha que voce tern 27 camisas e 13 pares 
de sapatos. 

Olhe no teclado e ache o comando LET na te 

c la L. 

Tecle agora: 

LET camisas = 27 

Observe que nao aparecem as aspas em torno 
da palavra "camisas". 

A razao disto e que a palavra "camisas" es 
ta sendo usada como rotulo para uma caixa da memo¬ 
ria e nao como alguma coisa que o TK 90X tenha que 
imprimir (PRINT). 

Agora aperte ENTER . 

0 que aconteceu? 

Nao muito, com exceqao de que a sua ultima 
linha desapareceu. 
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Porem a mensagem 0 Executado 0:1 esta de 
volta e isto significa que o TK 90X fez o que voce 
pediu para ele fazer. 

Voce pode verificar isto, porem teclando 


agora 


PRINT camisas ( ENTER ) 


Agora o numero 27 aparece impresso no topo 
da tela da T.V. e a esquerda. 

Como foi que o TK 90X fez isto? 

Bern, inicialmente ele achou uma caixa da 
memoria rotulada com "CAMISAS" e "olhou" dentro da 
me sma, 

Ax ele encontrou o numero 27 e "copiou" o 
mesmo na tela de ixando ainda o numero 27 nesta cai¬ 
xa de memoria* 

Da mesma forma voce pode ensinar o TK 90X 
a lembrar o numero de pares de sapatos que voce tem. 


Escreva 


LET sapatos = 13 ( ENTERI ) 


0 TK 9$X sabe agora quantas camisas e pa¬ 
res de sapatos voce possui. 

Para que voce tenha certeza disto basta te 
clar e entrar (ENTER) com as seguintes linhas: 

PRINT camisas ( ENTER| ) 

PRINT.sapatos ( ENTER] ) 

e note que os numeros 27 e 13 aparecem na tela. 

Para que o TK 90X possa somar os artigos 
de vestuario que voce possui basta escrever 

LET artigos = camisas + sapatos ( ENTER ) 

l-..J 

Executado 0:1 diz o seu TK 90X nao e? 

Bern, agora tecle 

PRINT artigos ( [eNTEr].) 
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: voce vera na tela a resposta 40. 
Exvlicando melhor 


0 nome real para estas caixas de memoria e 
variavel numerica , 

Este nome nasceu na lingua dos "computado- 
res" e significa que voce pode variar ou modificar 
o numero ai armazenado tantas vezes quantas voce 
queira e como queira. 

A sua liberdade junto com o TK 90X e qua.se 
indefinida. 

Nao existem na realidade milhares destas 
caixas dentro do TK 90X, porem esta e uma forma bem 
simples para pensar (nao compreender) como e a memo 
ria do seu super-micro. 

Voce agora nao pode esquecer a funqao do 
importante comando LET cuja forma geral e 

' LET variavel - qualquer nurtero 

—i—,—. ,—,— i—~ 

e que diz ao TK 90X para fazer com que uma letra ou 
uma palavra ou ainda uma letra seguida por urn nume¬ 
ro (a qual chamamos•de variavel) se torne igual . a 
algum numero. 

Por exeraplo 


LET galinhas = 37 
LET perus = 6 

LET patos « 16 


( ENTER j ) 

( [enter j ) 

(I ENTER]) 


fara com que o TK 9j5x armazene o numero 37 na caixa 
de memoria com o rotulo "galinhas", o numero 6 no 
rotulo ou seja na variavel numerica "perus" e 16 na 
variavel numerica "patos". 

Por outro lado 


LET aves = galinhas + perus + patos 


((ENTERI> 






22 


fara com que o TK 90X guarde na caixa da memoria 
com o rotulo "aves" or numero total de animais que 

neste caso e igual a 59. 

Para que este numero apareqa na tela basta 

agora voce teclar 


PRINT aves 


0 nome de uma variavel numerica pode ser qualquer 
combinaqao de letras, digitos (0 ate 9) e espa^os 
des.de que o primexro caractere seja sempre uma le- 




sao nomes validos para variaveis. 

Cuidado que uma variavel na^pode^er 're- 

presentada por 3X, 5A, etc. 

0 TK 90X tambem nao distingue entre letras 
minusculas e maiusculas no nome de uma variavel e 
ignora tambem os espa^os em branco. 

Desta raaneira para o TK 90X 
/ 

Delta 

delta’ 

] delta - 
Del ta 


e o nome para uma mesma variavel numerica 

A eletronica do TK 90X esta essencialmente 
constituida por um microprocessad or modelo Z80,que 
cumpre a funqao da unidade (central de ^rocessamento 
(uvc.p.) . 
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Este microprocessad or e rauito comum tambem 
em outros micrbcomputad ores. 

Alem disto tem-se os "chips” de memoria. 

Entre estes deve-se distinguir os que "me- 
morizam" a informaqao de forma permanente e saem 
gravados da fabrica, de acordo com as instruq.oes do 
projeto da Microdigital (memoria ROM.- Itead £nly 
Memory) e aqueles cuja capacidade de memoria desapa 
rece quando se corta a corrente eletrica (memoria 
RAM “ Random Access-Memory). 

A memoria ROM contem muitas rotinas espe- 
ciais escritas em linguagem de maquina. - 

Toda vez que o TK 90X esta ligado, o micro 
processador Z80 executa uma ou outras das seguin- 
tes rotinas 

- Permite entrar ou editar um programa. 

- Executar o seu programa escrito em SASIC. A ROM contem 
o conjunto de "regras" que o Z80 usa para interpretar 
cada comando ou fungao em BASIC e desta forma efetuar 
o que voce escreveu. . 

- Sentir se alguma das teclas foi pressionada. 

- Imprimir na tela ou na impressora as informaqoes. 

- Salvar ou seja armazenar em uma fita cassete o seu 
programa ou ainda carregar da fita cassete para a me- 
raoria do TK 90X. 

- Contem os padroes ou modelos de pontos usados para 
formar os caracteres na tela da T.V. ou na impressora. 

Mais uma vez insisto que toda esta informa 
qao esta fixa no chip ROM quando ele e produzido. 

Voce pode facilraente ler o que existe no 
mesmo porem nao pode alterar qualquer parte da in- 
fortnaqao guardada na ROM. 

A memoria RAM por outro lado e bem mais 

flexivel. 
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Alem de permitir que se leia o que esta ar 
mazenado na memoria RAH voce (ou o microprocessador 
Z80) pode alterar aquilo que esta al } escrevendo no¬ 
vas informagoes. 

A unica desvantageia desta memoria e que 
ela e votatit 6 u seja o conteudo da mesraa e perdida 
se for interromp ida a corrente eletrica. 

A RAM e dividida em varias areas e entre 
elas destacam-se: 

j - Area para o arquivo da tela e atributos. 

I - Area para o programa em BASIC ou seja onde e 


< guardado o seu programa. 

- Area para as variaveis, usada para guardar os 
^ dados variaveis para o seu programa. 

Uma das coisas que atiga a curiosidade dos 
(das) novigos(as) em computagao e a forma como e me 
dida a memoria do TK 90X. 

Ai e que vein a duvida sobre o que sao by¬ 
tes , bits e K I?!?!?! 

A memoria do TK 90X e organizada de tal 
forma que se possa seguir o raicroprocessador, que 
sendo urn dispositivo binario "sente-se feliz” quan- 
do pode trabalhar com numevos com potencies de 2 . 

Tambem o chip processador necessita que a 
memoria seja organizada de uma forma uniforme. 

Vamos agora pensar' na memoria. do TK 9jJx co 
mo uma linha bem Tonga de caixas identicas. 

As caixas sao numeradas consecutivamente, 
de forma que o microprocessador pode usar este nume_ 
vo ou endevego para escolher uma particular caixa. 

Em cada posigao (isto e em cada "caixa"), 

» 

esta um numero binario formado por 8 "bits" ou digi 
tos binarios os quais podem ser "0" ou " 1 ". 
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Um grupo de 8 bits e charaado de 1 byte. 

Existem 256 (2 elevado a 8 ) arranjos com 
repetigao de 2 elementos ("0 e " 1 ") atribuxdos a 8 
posigoes de forma 'que pode-se pensar em cada posi¬ 
gao da memoria como contendo um numero inteiro, na 
base dez, no intervalo de 0 ate 2 5,5. 

0 TK 90X pode, naturalmente, manipular nu¬ 
meros fora deste intervalo, assiia como as fragoes e 
para fazer isto utilize um grupo de 5 bytes. 

No total o microprocessad or Z80 do TK 90X 
pode manipular 65536 (2^) diferentes posigoes da 


memoria. 

0 primeiro quarto destas posigoes e tornado 
pela memoria ROM e dependendo do modelo as -'restan- 
tes posigoes sao parcialraente ou comp 1 etamente ocu- 
padas pela memoria RAM. 

Uma forma simplificada de se referir ao ta 
manho da memoria e utilizar a abreviatura "K" para 
representar 1024 ( 2 ^ = 1024) bytes. 

Desta forma o TK 90X pode manipular 64 by¬ 
tes de memoria, 16 K da qual e ROM e - as restantes 
48K podem ser de memoria RAM. 

Note que 16 X 1024 = 16384 


48 X 1024 


= 49152 
“T5T36 
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Para perceber isto veja quanto e 

( 11011011 )2 

na base 10* 

A forma'para obter esta conversao e: 


110110 ' 11 


(11011011), = lx2 7 + lx2 6 + 0x2 5 + lx2 4 + Ix2 3 +0x2 2 +lx2 1 +lx2 0 


* 


— 128 + 64 + 0 + 16 + 8 + 0 + 2+1 = (219) 


ostre que (1U111I1) 2 = (255) .. 




Capftulo 6 

Lembrando das letras e das cadeias 

de letras 


0 TK 90X pode. tambem lembrar de palavras e 
de sentenqas . 

Ele tem oaixas especiais para armazenar se 
quencias alfabeticas ou alfanumericas. 

Porem para usar uma caixa especial para 
uma cadeia ou sequencia de caracteres (STRING) voce 
precisa utilizar um rotulo todo especial. 

Ele precisa $ev uma Un'ioa « letra seguida pe 
lo caractere cifrao (ou dollar )"$** • 

Assim, caso voce queira que o TK 90X lem 
bre um nome pode. chegar a este fim escrevendo: 


LET n$ = "Sacha” 


( ENTER ) 


0, I, J Tecle o seu proprio nome no lugar de "Sacha" 
que e o diminutivo em russo do nome do meu filho ca 
quia porem nao esqueqa de apresenta-1o entre aspas... 

Para vefificar se o TK 90X lembra ainda 
este (ou o seu nome) basta teclar 

PRINT n$ ( [ENTER] ) 

0 TK 90X pode tambem lembrar de uma senten 
qa completa. 

Tente agora 

LET s$ = "As negociaqoes serao um complexo de ques. 

toes re lativas ao espaqo e armas nucleares^ 

( IenterI) 
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Agora t.ecle 

PRINT s$ ( ENTER ) 

■ Ml 

e veja como sai impress© na parte de cima da tela a 
frase: "As negociagoes serao urn complexo de ques- 
toes relativas ao espago e anas nncleares". 

Caso voce use a letra maiuscula "S" no lu- 
gar. da minuscula "s" sera que a mensagem e ainda a 
me sma. 

Para verificar tecle: 

PRINT'S$ ( ENTER ) 

0 que aconteceu? 

Como voce pode ver o TK 90X nao’ reconhece 
a diferenga entre rotulos com letras raaiiusculas e 
aqueles com letras minusculas. 

Qualquer uma das 26 letras do alfabeto po¬ 
de ser usada para rotulos ou seja para as variaveis 

STRING. 

Desta maneira, no lugar de n$, para guar- 
dar um nome voce pode usar tanto A$ como Z$» 

fi entretanto uma boa ideia escolher como 
inicial para a variavel STRING uma letra que tenha 
alguma associagao com o que existe nesta caixa, 

Uma coisa que e muito importante voce en 
tender (e nao esquecer) e que uma caixa de memoria 
pode arraazenar uma STRING de cada vez,. 

Desta forma se voce escrever: 

LET n$ - "Joana” < [enter} ) 

e ai entao voce colocar um outro nome nesta caixa 

LET n$ - "Cristina" ( ENTER ) 

quando voce tecla 
PRINT n$ 
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o seu TK 90X ira imprimir o ultimo nome ou seja 
"Cris tina". 

fi, para o TK 90X e bem facil!!!! 

Ele sempre so lerabra da ultima e a imedia- 
tamente anterior e totalmente esquecida... 

0 .1^- No jargao do "computadores", a palavra para 
um grupo de caracteres que aparecem entre as aspas 
e STRING. 


Uma variavel pode armazenar uma STRING que 
pode ser uma colegao de caracteres alfabeticos ou 
graficos ou ainda outros tipos de simbolos existen— 
tes no teclado do TK 90X. 

No TK 90X uma STRING pode ter qualquer com 
primento desde nada ate uma STRING bem comprida cujo 
comprimento tern como limitagao somente a quantidade 
de memoria disponivel. 

Uma STRING com nada entre os sinais de as¬ 
pas ("") e cbamada de STRING Vazia ♦ 

Voce vera no final deste livro nos progra 
mas aplicativos, por incrivel que possa parecer, a 
grande utilidade das STRINGS vazias. 

Ai vai por exemplo uma forma para indicar 
ao TK 90X como esquecer totalmente algo 

LET n$ - mt ’ ( lENTERj ) 

Portanto,a nova instrugao que voce conhece 


agora e: 


RESUMINDO; 


LET x$ ~ "qualquer coisa" 


Caso voce utilize um rotulo consistindo 
unicamente de uma letra seguida pelo cifrao "$" 


TK 90X ira armazenar o que segue entre as aspas era 
tipo especial de caixa de memoria. 
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Este tipo de. variavel e chamado de varia- 
vel STRING» 

Contrarlamente as variaveis numericas (que 
contem somente numeros) as variaveis STRING podem 
conter qualqUer tipo de informagao incluindo nume¬ 
ros, palavras, caracteres graficos e simbolos espe 
ciais♦ 

Nao esquega que o TK 90X trata as let-ras 
maiusculas de forma identica as minusculas de forma 
•que X$ tem o mesmo significado para o seu super-mi¬ 
cro que x$. 



Tecle 6ntao o "mini-mini tf exemplo 

10 x$ = "Sergio" 

20 PRINT x$ 

30 PRINT X$ 

Ao executar ^RUN^ saira: 

Sergio 

Sergio 


Caprtulo 7 

Finalmehte escrevendo o seu 
primeiro programa!!! 


Ate agora o TK 90X tem feito tudo que vo¬ 
ce Ihe pediu imediatamente. 

Cada vez que voce queria que o TK 90X fi- 
zesse algo novo, tinha que teclar uma nova instru- 
gao. 

A esta forma de utilizar o TK 90X chama- 
se modo 'imed'iato ♦ 

Mas o seu -TK 90X pode fazer coisa mui'to me 

lhor I l ! 

Ele pode lembrar longas listas de instru- 
goes; as quais chamaremos de PROGRAMA . 

Voce ainda lerabra quais eram os itens no 
Capitulo 5 que corapunhara o seu vestuario? 

Inicialmente, voce teclou os dois tipos 
que lhe interessavam (camisas e sapatos) e depois 
efetuou a soma dos mesmos, 

Para transformer as instrugoes do modo ime 
diato para o modo programado e desta forma consti- 
tuir urn progvama tudo que voce deve fazer e acres- 
centar um nurriero de Zinha na frente de cada instru- 
gao ♦ 

Os numeros de linha dizem ao TK 90X a or- 
dem na qual voce quer que as instrugoes sejam exe- 
c utad as . 
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Antes de teclar um novo programa, voce de- 
ve apertar a tecla .marcada com VA" , no qual esta 
escrito era branco a palavra-cbave NEW * 

Ar apsrte |eNTEr| . 

Com isto, limpa-se a memcria do TK 9flX e 
se evita que voce tenha que tirar o “plug" da toma- 
da a toda hor a. 

Tecle agora o seu primeiro programa 

PROGRAMA 1 J 

10 LET camisas = 27 

Voce nao esqueceu que caso cometa algum er 
ro basta apertar CAPS SHIFT e 0 para corrigir a 
ultima posigao imediatamente a esquerda do cursor. 

Depots de- ter apertado |~ENTER , voce nota- 
ra que esta linha ira reaparecer no topo da tela. 

Continuando a teclar o programa entre com 
as linhas restantes 

20 LET sapatos = 13 ( ENTER ) 

30 LET artigos = camisas + sapatos ( ENTER ) 

40 PRINT artigos ( ENTER( ) 

Ate agora nao aconteceu nada, exceto que 
cada linha aparece na sua ordera correta no topo da 
tela.• 

Aperce agora a tecla "R" na qual era branco 


'RUN 

m 

o 

ENTER 


Caso voce tenha teclado tudo corretamente, 
aparecera o nuraero 40 no topo da tela. 
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Explicagoes adicionais sobre a entrada do 
programa e as dificuldades que podem ocor 
rer no decurso do mesmo 

Comumente, quando voce pressiona a tecla 
ENTER] apos ter Jteclado uma linha do programa o 
TK 9pX faz com que a tela da T.V. fique branca por 
um momento. 

Entao ele escreve a linha no topo da tela 
e imprime o K piscando no espago de trabalho na 
parte baixa e a esquerda da tela. 

0 K significa que o TK 90X aceitou a li¬ 
nha do programa e esta esperando que voce tecle uma 
palavra chave (tal como RUN ) ou um outro nuraero 
de linha do programa. 

Ocasionalmente (assim espero,.,)voce pode- 
ra se ver frente a situagao na qual o TK 90X recu- 
sa-se a fazer isto. 

Caso voce olhe cuidadosamente,provavelmen- 
te vera um sinal de interrogagao piscando " m " era 
algum ponto da linha que ha popco teclou e que nao 
quer subir pois ai existe.algum tipo de erro . 

Por exemplo, se voce esqueceu de teclar o 
sinal de igual T ' = M na linha 30, a sua linha tera o 
seguinte aspecto, 

30 LET artigos camisas + sapatos 

Quando voce apertar ENTER , o TK 90X pro- 
vavelmente iraprimira ura ponto de interrogagao onde 
ele acha que voce cometeu um erro, isto e aparecera: 


30 LET artigos camisas? + sapatos 

Esta e uma earacterlstica extremamente util 
do BASIC do seu TK 90X. 
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0 TK 90X verifica cada linha que voce te- 
clou antes de aceitar a raeSma quanto a erros de szn 

to.xe . __ 

Fara corrigir este erro utilize CAPS SHIFT 
e 0 (zero) para apagar tudo ate chegar ao ponto de 
interrogagao.' 

Entao voce pode rebater todo o resto da 
linha corretamente* 

30 LET artigos = camisas.+ sapatos 

Agora, quando voce pressionar a teclar 
ENTER a linha corrigida ira ate o topo ocupando o 
seu lugar correto. 

Um outro problema com o qual voce pode se 
defrontar e aquele no qual a linha parece que foi 
aceita porem nada aparece no topo da tela. 

Ao inves disto, voce pode ler mensagem co- 

mo /-““- —-n 

( 0 Executado 0:1 ) 

no espago de trabalho . 

Isto provavelmente significa que voce es~ 
queceu de teclar o numero da linha e o seu TK.90X 
pensa que voce raandou.uma instru^ao em modo imedia- 


Nao se preocupe e aperte logo o ENTER ou 
tra vez que as linhas do seu programa reaparecerao 
novamente na tela. 

Rebata a linha que se perdeu e fique tran- 
quilo(a)... 

Espero que no seu caso particular aparega 
no canto baixo da esquerda a mensagem 

^ 0 Executado- 40 : l"^ 

com a qual o seu TK 9J)X indica que tudo correu bem!! 
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Programa 


NEW 


Terminando este capitulo nao esqueqa que: 

-& toda serie de insttugoes que voce 

quer que sejam executadas em uma par 
ticular ordem chama-se de programa . 

A cada instrugao e dado um numero de 
linha. 

-Normalmente, no lugar de numerar as 
linhas com 1,2,3,4,,etc.,... voce d 
ve numera-las de 10 era 10 (10,20,30, 
40,etc.) de forma que voce tenha es¬ 
pago para inserir linhas adicionais 
caso isto seja necessario. 

-►- Com este comando limpa-se a memoria 

do TK 90X de qualquer programa ante 
rior. 

Tecle setnpre o NEW antes 'de teclar 
um novo programa, porem esteja certo 
de que o programa antigo tenha sido 
armazenado em uma fita se ele e real 
mente impcrtante para voce, 

-Diz ao TK 90X para executar as ins- 

trugoes comegando com aquela de me- 
nor numero de linha no seu programa. 
Portanto a ordem RUN seguida claro 
da executiva ENTER fara com que o 
TK 90X entenda que o seu desejo e 
que ele (TK 90X) "corra" (RUN) o pro 
grama ou que e a mesraa coisa, ponha 
o mesmo em movimento ou em explora- 


l(T> 







Capftulo 8 

Aprendendo a editar e corrigir erros 


Existe urna forma bem simples de corrigir 
linhas de programa -e diferente da utilizada ate ago 
r a * 

Pratique bastante no sistema de edigao 
(EDIT) e logo voce sera muito mais rapido que o ven 
to deslocando-se como um "superman" para todos os 
pontos da tela, 

Inicialmente tecle o seu segundo e curto 

•programa. 


PROGRAMA 2 


10 LET galinhas == 37 ( 1 ENTER| ) 

20 LET perus = 6 ( |ENTER| ) 

30 LET patos = 16 ( j ENTER| ) 

40 LET aves = galinhas+perus+patos ( ENTER ) 
50 PRINT aves ( ENTErI) 


Imagine, por um momento, que voce • contou 
ou adquiriu um novo peru e quer aumentar "perus" na 
Iinha20para7. 

Caso voce ja tenha executado o programa 
pressione ENTER para obter a listagem do niesmo de 
volta, 

Agora olhe para as teclas 5,6,7 e 8. 
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Voce conseguiu notar as flechas brancas que 
existem acima destas teclas? 

Mantenha pressionada a tecla CAPS SHIFT 
e aperte a tecla u 6 tf que tem impressa acima a fle¬ 
cha (ou seta) para baixo. 

A ppnta de uma seta ou ponteiro (>) ira 
aparecer na listagem logo apos o pr.imeiro nurnero 
de linha (no nosso caso particular o numero 10),Cha 
ma-se a este ponteiro de cursor da linha de progra- 


Aperte de novo CAPS SHIFT e *'6 M outra vez 
para levar o cursor da linha de programa para baixo 
ou seja para a linha 20. 

Agora, mantenha abaixada a tecla CAPS SHIFT 

. . 

e aperte a tecla "1 M que tem escrita acima de si a 
palavra EDIT . 

Isto fara com que uma copia da linha apare 
ga no espago de trabalho* 

20 LET perus = 6 

Mantenha ainda a tecla CAPS SHIFT abaixa 
da e neste moraento aperte a tecla T, 8 ,r (flecha para 
a direita) varias vezes ate que o cursor L esteja 
no fim da linha. 


20 LET perus = 6 □ 


Agora e que chegou a hora de usar CAPS SHIFT 

e 0 para apagar (DELETE) o 6 e entao teclar o 7. 

— 

Aperte o ENTER e a linha corrigida subi- 
ra para a sua posigao correta ou seja 

20 LET perus = 7 

0 cursor da linha de programa (>) estara 
novamente na linha 20 para que voce nao esquega que 
esta foi a ultima linha teclada. 
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Execute (RUN) o programa e entao aperte o 

111 . 

ENTER para ter a listagem completa do programa no 
vamente. 

Use a flecha para baixo (como explicado ha 
pouco) para levar o cursor da linha do programa pa- 
ra baixo e neste instante para a linha 50. 

Entao, edite a linha 50 embaixo, no espago 
de trabalho. 


50 PRINT aves 

Neste momento, use a tecla da flecha para 
a esquerda ( CAPS SHIFT e tecla ’’S") para mover o 
cursor uma posigao para a esquerda. 

5 m 0 PRINT aves 


Utilize CAPS SHIFT e 0 para apagar 
(DELETE) o "5“ e teclar o "6" para mudar a linha 50 
para 60. 

Us’e agora a flecha para a direita (nao es¬ 
quega da CAPS SHIFT ) para mover o cursor para o 
espago apos o PRINT. 


60 PRINT TT\ aves (jS 

Tecle agora ^ * 

^|Es p^aq^ o^era bv anc 

"Aves =□"; ^ 

para tornar a nova linha 60 com o seguinte conteudo: 


60 PRINT ’’Aves =Q"; aves 

Esteja certo que incluiu ambos os conjun- 
tos de aspas e o simbolo (vermelho) de ponto e vir- 
gula";" que voce encontrara sobre a tecla 0. 

Quando voce apertar o ENTER , a linha mo- 
dificada entrara na listagem acima, mas a antxga 
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linha 50 tarabem aparecera, 

Caso voce queira eliminar totalmente a li- 
nha 50 tecle simp 1esmente: 

50 ( [ENTER 1 ) 

Agora execute (RUN ) o programs revisto. 

Pratique o mais que puder a ediqao usando 
as teclas com as flechas ate que voce possa editar 
linhas, fazer mudan^as, inserqoes e elimina^oes ra- 
pidamente e sem nenhuma di£iculdade*.. 

Nao esqueqa entao o couceito basico deste 
capitulo que e o EDIT . 

0 sistema de edigao (EDIT) lhe permite fa 
zer mudangas em, um programa existente corrigindo 
pa'rticu 1 ares linhas- no lugar de rebater trechos do 
me smo. 



Caprtulo 9 

O comando INPUT, um novo e 
futuro grande amigo seu 


Se a apalavra-ch.ave PRINT fei ate este pon 
to o seu comando favorito, a proxima palavra-chave 
a entrar neste rol e 

'INPUT 

Com o auxilio deste comando voce podera 
econoraizar muito do seu tempo dedicado a teclar* 

Caso voce queira informar algo ao TK 90X, 
como po.r exemplo o numero de camisas , sapatos,perus 
etc* que possui, nao sera mais necessario . faze-lo 
atraves de instrugoes do tipo: 

30 LET patos * 16 

Alias, esta forma de definir o valor.de tuna 
variavel e bastante inadequada quando se quer modi- 
ficar alguma informagao pertinente a mesma. 

Para raudar o numero de "patos", voce deve 
editar (EDIT) ou rebater esta linha do programa. 

g neste capitulo, que ensinarei a voce,uma 
forma mais simples de fazer isto usando a palavra- 
chave (branca). . 

INPUT 

a qual voce encontra na tecla "I". 

Tecle agora o seu terceiro (e ainda curti* 
nho) programa. 
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Alias j a considero isto como uin habito ado 
tado e daqui para frente poucas vezes ireraos repe~ 
tir isto no final de cada linha. 



10 PRINT "Qua! e o. seu nome?" 
20 INPUT n$ 

30 PRINT “Como vai voce" 

40 PRINT n$ 


Antes de executar ( |RUN j ) o programa tente 
advinhar o que fara o mesmo, 

Ai vai a explicaqao de como ele opera. 


Linha 10—►Voce usou o seu "velho amigo" PRINT para impri- 
mir uma pergunta na tela da T.V. 

Linha 20—►A linha com o comando INPUT faz com que o TK 90X 
pare e espere que voce tecle algo* 

0 cifrao "$" apos a letra "n" diz ao TK 90X que 
voce deseja que ele aguarde por uma STRING de ca- 
racteres (neste caso, o seu nome), a qual e arma- 
zenada na caixa da memoria que foi rotulada n$. 

0 TK 90X ficara esperando para sempre ou ate que 
voce aperte a,tecla ENTER para informar que ter 
minou de teclar. 

Quando voce terminar de teclar e pressionar a te¬ 
la ENTER , o TK 90X deslocar-se-a para a proxima 
linha do programa - linha 30. 

Li iha 30—►Ai, simplesmente se imprime a mensagem "Como vai 


**■11 

voce . 
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Linha 40—►Indica ao TK 90X para olhar na caixa de memoria 
que se chamou de n$ e imprirair tudo que estiver 
contido dentro da mesma, na tela da T.V. 

Execute ( RUN ) o programa mais uma vez pa 
ra verificar se entendeu tudo o que foi dito ha pou 


Melhorando o seu terceiro programa 


v Agora voce ja sabe como o programa traba- 

lha e pode-se fazer algumas mudanqas no mesmo com o 
intuito de melhora-lo. 

Inicialmente, se voce quer experimentar o 
programa com um(uma) amigo(a) que nada saiba sobre 
micros, ele (ou ela) logo ficara gamado(a) pelo> 

TK 90X. 

0 seu (a sua) amigo J a) pode nao perceber 
que o TK 90X quer que voce tecle o seu nome. 

E a.inda mais, certamente nao percebera que 
voce precisa apertar a tecla ENTER para fazer com 
que o programa continue. 

Em outras palavras o programa nao e "muito 
amigavel" ou seja nao e auto instrutivo osuficiente 
para pessoas que nao entendem de micros ou mesmo 
que nao tenham conhecimento previo do programa. 

Desta- forma no lugar de perguntar simples¬ 


mente 


"Qual e o seu nome?". 


seria muito mais explicativo e educado para o(a) 
usuario(a) dizer: 

"Por favor, tecle o seu nome e depois aperte a te- 
cla lEHTERl " 

Realmente,voce pode fazer algo mais com o in — 
tuito de dimiruiir oseu tempo de digitaqao no futuro. 
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Ha uina forma especial de uso do comando INPUT no 
qual se pergunta e ao mesmo tempo se entra com ares 
posta como por exemplo: 

INPUT "Qual e o seu nome?" 

INPUT pode tambem receber a resposta, colo 
car a mesma na caixa da memoria e tudo isto na mes 
ma linha do programa como: 

10 INPUT "Qual e o seu nome?";n$ 

Voce notou a presenga do ponto e virgula 
(;) antes do n$ ? 

£ muito importante incluir o ponto e virgu 
la (;) pois caso contrario o TK 90X se recusara a 
aceitar esta linha do programa. 

0 ponto e virgula e o simbolo vermelho que 
esta na tecla 0. 

Desta forma torne o seu programa auto ex- 
plicativo e otimizado com a.seguinte linha 10 (no¬ 
va ) : 

10 INPUT "Por favor, tecle d seu nome e depois 
aperte a tecla ENTER";n$ 

Depois de ter feito isto, e obvio que de- 
ve-se elimiaar a antiga linha 20 o que se consegue 
entrando com: 

20 ( enter!) 

Olhe agora no seu programa e observe que a 
linha’20 desapareceu. 

Execute (RUN) novamente o programa. 

Voce notou alguma diferenqa? 

No lugar de se imprimir a pergunta no to- 
po da tela, o comando INPUT imprime a mensagem no 
espaqo de trabalho,na parte de baixo da tela. 
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Existe uma outra coisa que voce pode melho 

r ar . 

Se o seu nome e digamos igual ao meu, Vic¬ 
tor, nao seria mais elegante no lugar de imprimir 



imprimir 



tudo numa mesma linha? 


Voce pode mandar o TK 90X fazer isto deuma 
forma bem simples, acres centando no final da linha 
30 um ponto e virgula (;)• 

Os pontos e virgula (;) tern um significado 
muito especial para o TK 90X. 

Eles informam ao TK 90X que a impressao de 
ve comeqar imediatamente apos e nao numa nova li— 
nha. 

Edite (EDIT) a linha 30 para que no final 
tenha o seguinte aspecto: 

30 PRINT "Como vai voce"; 


grama, 


Quando voce executar (RUN) o terceiro pro- 
ja revisto, vera no topo da tela algo assim: 



Melhor, mas ainda nao totalmente o que se 


queria... 

Voce precisa de algum espago entre as pala 

vras "voce" e "Victor". 

Edite a linha 30 e inclua.dois espaqos em 


branco apos a palavra "voce" e antes das aspas 


30 PRINT "Como vai voce 


00 "; 

espaqos em brancoj 
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Quando voce estiver fazendo isto, por que 
nao tentar acrescentar o Tf n$" da linha 40 no final 
da linha 30? 

Isto ja funcionou na linha' 10 com o INPUT 
de forma que tente agora, 

30 PRINT "Como vai voc SOD" ;n$ 

Aperte ENTER e a linha se deslocara para- 
cima substituindo a antiga linha 30 na sua listagem. 

Antes de executar (RUN) o programa revis- 
to pela segunda vez, voce precisa eliminar a linha 
40 e para tanto basta teclar 

40 ( ENTER ) 

Agora execute o programa. 

Esta como se queria e com urn programa bem 
menor, nao e? 

Neste ca p itulo as novas instru co es foram: 

INPUT variavel —^Diz ao TK 90X para esperar ate que urn nu 
1 numerica mero seja teclado. 

L ‘. 0 comando INPUT esta na tecla I 


INPUT variavel —*-Diz ao TK 90X para esperar ate que entre 
STRING uma letra, palavra ou uma cadeia 

_ (STRING) de caracteres. 

INPUT "mensagem";n$ —► Permite. que voce envie uma mensagem 

— -J (entre aspas) e apos isto espera a 

j Py| E entrada de uma variavel STRING que deve 

(If aparecer separada da mensagem por um pon 

VftA P to . vtrgula (,). 


fm/ 


. r. j " • 

v Veja agora se entende os programas l,2,e 3 

do Capitulo 23. 

Va ate la e depois de entende-los volte ao 
Capitulo 10. 


Capitulo 10 

Divertindo-se com a programapao 


Agora voce ja nao e tao ne.dfitoCa) em pro* 
grama^ao e desta forma vamos ao quarto programa, 
mais longo e totalmente comentado. 

Se o terceiro programa (Capitulo 9) nao 
esta mais no seu TK.90X tecle 



±0 INPUT "Por favor, tecle o seu nome'e depois 
aperte a tecla ENTER";n$ 

30 PRINT "Como vai voceCO*;n$ 

Acrescente agora as seguintes linhas: 

40 PRINT 

50 PRINT "0 meu nome e TK 9‘0X" 

60 PRINT 

70 PRINT "Diga-meDD" ?n$ 

80 INPUT "Qual e a sua idade?D0" ;idade 

90 PRINT 

100 PRINT "Ceus-D "; idade? "DDanos de idade!” 
110 PRINT "Voce e bem mais velho do que eu!” 

Ate este ponto convem ressaltar alguns de- 

talhes , 

Inicialmente, esteja seguro de incluir to- 
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dos os pontos e virgula (;) ou o seu TR 90X se recu 
sara terrainantemente a • aceitar estas linhas. 

Nao esquega de incluir os espagos em bran- 
co (□) onde eu os coloquei, isto e, dentro dos tre- 
ctios entre.aspas, 

Por exemplo, na linha 80 os dois espaqos 
em branco sao colocados para separar a pergunta do 
valor numerico, correspondents a sua idade. 

Tambem na linha 100 incluimos varios espa- 
gos em branco para se ter uma saida simples delerl! 

Nao se preocupe, se uma linha e tao com- 
prida que vai para a outra linha da tela, como e o 
caso por exemplo da linha 10. 

Fica por conta do TK 90X interromper uma 
linha onde ele achar necessario. 

Voce provaveImente nao vai ter muita difi- 
culdade em achar a maior parte dos sinais de pon- 
tuagao, todos em vermelho.. 

Nao esquega que para isto se deve utilizar 

a tecla (em vermelho) SYMBOL SHIFT e ai se obtem 

— - — 11 . * . 

qualquer coisa que esteja em vermelho. 

Tome cuidado para nao confundir a virgula 
(,) que esta na tecla M N” com o apostrofe " * " que 
esta na tecla ”7”. 

Antes de executar (RUN) o programa voce po 
de advinhar qual e 1 a fungao do comando PRINT que 
aparece nas linhas 40, 60 e 90? 

Bern, execute (RUN) o programa para ver se 
voce estava certo! 

Voce achou que urn PRINT sem nada apos o 
raesrao significa que deve-se imprimir (PRINT) uma li 
nha vazia deixando urn espago entre as outras linhas 
e fazendo com isto que o que se exibe na tela seja 
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raais simples de ler? 

Parabens bicho (gatinha)!!I I 

Caso seja possivel, mantenha este programa 
na memoria do TK 90X, pronto para ser incrementa- 
do!:! 

Os(as) habituados(as) com microcomputado 
res referem-se a uma lista de linhas de programas 
como sendo uma t'istagem . 

No TK 90X voce pode listar (LIST) qualquer 
parte de urn programa, desde que o programa tenha si 
do parado apos apertar-se duas vezes a tecla ENTER 
ou press ionando a tecla "K 11 , a qual tern a palavra- 
chave LIST impressa sobre a raesma, sempre que o 
cursor K estiver na tela da T.V. 

No momento, o seu programa e ainda bem cur 
to, de forma que voce pode ver todo o programa lis- 
tado na tela ao mesmo tempo. 

Mais tarde voce 'querera ver partes de pro¬ 
gramas compridos, tao compridos que so da para ver 
trechos dos mesmos. 

Tente isto, teclando para o ultimo (quarto) 


programa - 


Oi a obse rvaqao sobre 
o ENTER para entrar 
com algo no TK 90X 


JHK. LIST 50 ( ENTER ) Oi a observaqao sobre 

I—r—O IenterI para entrar 
^ com algo no TK 90X 

Com este comando o TK 90X ira mostrar para 
voce todas as linhas da 50 em diante. 

Teste o que acontece se voce teclar 


LIST ( ENTER) ) 

se? 7 i um numero de linha e entao com diversos numeros. 

Nos ja vimos que o TK 90X e muito bom com 
as operagoes de somar, subtrair, multiplicar, divi- 
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dir e elevar a uma certa potencia (Capxtulo 4). 

Para tornar, os programas mais interessan- 
tes, vou incluir a partir deste ponto algumas li¬ 
nhas que contenham formulas matematicas bera simples. 

Liste (LIST) seu ultimo programa para ver 
se existem quaisquer numeros com os quais pode-se 
obrigar o TK 90X a operar. 

£ isto ai, na linha 80 voce entrou com a 
sua idade e e com ela que vamos brincar um pouco. 

Nao esquega que qualquer coisa que esteja 
em uma caixa de variavel numerica pode ser tratada 
como um numero comum ou seja ser usado em operagoes 
algebricas. 

Nao se amofine e nem esquente a preciosa 
"cuquinha" antes do tempo. 

Por enquanto tecle as seguintes linhas que 
devem ser incorporadas ao seu quarto e ultimo pro¬ 
grama : 

120 PRINT 

130 LET velho * 70 - idade 

140 PRINT "Voce esta ciente que somente daqui 0"; velho; 

150 PRINT "□anos, sera septuagenario?” 

Na linha 130 tudo o que se faz e subtrair 
a sua idade de 70 e colocar a resposta ou o resulta 
do na caixa de memoria numerica denominada "velho 1 '. 

Desta forma se a sua idade atual e 15 ter- 
se-a a variavel "velho" com valor 55. 

Execute ( RUN ) agora o programa e tente 
compreender melhor como funciona o mesmo. 

Execute o mesmo varias vezes, usando dife- 
rentes idades. 

0 que ocorre se a sua avo, que tern hoje 78 
anos, entrar com a idade dela? 
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Neste caso saira uma mensagem com idade ne 
gativa e para que nao se interprete isto erradamen- 
te convem modificar a linha 30 pelo menos para: 

130 LET velho - 80 - idade, 

Porem a aritmetica ate agora pedida ao 
TK 90X e muito simples e por isto vamos acrescen- 
tar mais algumas linhas ao programa. 

0 ano tern 365 dias e a cada quatro anos 
tem-se um ano bissexto ou seja o ano em que o mes 
de fevereiro tem 29 dias e portanto neste ano tem- 
se 3 66 dias * 

Assim em media um ano tem 365,25 dias, 

Portanto se voce multiplicar a sua idade 
por 365,25 voce obtera o numero de dias que ja vi- 
veu (aproximadamente), 

Acrescente portanto as seguintes linhas: 

160 PRINT 

170 LET dias = idade * 365.25 

180 PRINT "Voce ja viveuQ"; dias; H []dias." 

0 ponto decimal (a nossa classica virgula 
decimal)e o caractere em vermelho que esta na tela 
"M". 

Como um dia tem 24 horas, voce pode tambero 
querer saber quantas horas ja viveu. 

Acrescente as seguintes linhas: 

190 PRINT 

200 LET horas = dias * 24 

210 PRINT "Se cada hora que passa na nossa vida 
e importante saiba que:" 

220 PRINT "Voce ja viveuD"; horas; "□horas." 

Da para expressar o que voce ja viveu em 
minutos? E.em segundos? 
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£ claro que sim desde que voce introduza 
que toda hora corresponde a 60 minutes e cada minu- 
to corresponde a 60 segundos. 

Complete entao o programa com as seguintes 

1 inhas: 

230 PRINT 

240 LET minutos = 60 * horas 

250 PRINT ’’Em minutos parece que a sua vida e 
bem grande ! ! I ,f 

260 PRINT M Saiba que voce ja viveu Q"; minutos; 
"□minutos 11 

270 PRINT 

280 LET segundos - 60 * minutos 

290 PRINT "Em segundos da impressao que a sua 
vida e infimta, , . 

300 PRINT "Se voce tem mais que 3 anos de idade 
a que voce ja^viveu em segundos sera apresen 
tado na notagao exponencial 11 

310 PRINT "A sua vida medida em segundos e: 1 I 11 ; 
segundos 

Agora execute (RUN) o programa, para ver 
que tipo de respostas obteml 

oTlJ- Voce ainda lembra como transformar urn numero 
na forma exponencial em um numero na forma normal? 

Dado que, para este quarto programa nao de- 
vemos ter nenhum numero negative basta voce deslo- 
car o ponto decimal para a direita tantas posigoes 
quanto e o valor do numero logo apos o-E. 

Dessa forma se o numero na forma exponen- 

f or 

4.73364 E + 8 segundos 

precisa deslocar o ponto decimal 8 posigoes pa 
direita acrescendo neste caso 3 "zeros 11 extra. 


ci al 

voce 
ra a 
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0 equivalence ao numero 4.73364 E+8 na for 
ma comum e 473 364 000 segundos ou seja 473 milhoes 
e 364 mil segundos e que equivale a uma idade atual 
d e 15 anos. 

Neste capitulo a instrugao nova que voce 
nao pode esquqcer e 

LX ST | -- Diz ao TK 90X para listar (LIST) e 

exibir o seu programa comegando com 
a primeira linha do programa. 

LIST numero —*- Por exemplo se no nosso ultimo 

programa escrevermos LIST 160 isto 
ordena ao TK 90X que liste somente 
as linhas de programa comegando no 
numero teclado, neste caso 160. 
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Capftulo 11 

Guardando e carregando 
os seus programas 


programas 
ideia que 
s em fi- 

tas cassete, desde que o(a) caro(a) leitor(leitora) 
tenha um gravador adequado, 

Caso voce nao tenha um gravador pode pular 
este capitulo ate que adquira um. 

Compre logo um, pois voce precisara dele. 

Muitos programas sao tao l'ongos que sera 
necessario bate**los era diversas etapas . 

Caso isto ocorra e fundamental poder guar- 
da-los (SAVE) por exemplo ero uraa fita cassete e de- 
pois carrega-los (LOAD) para o TK 90X na proxima 
vez possibilitando a continua$ao da "teclagem” apar 
tir do ponto da ultima parada. 

0 TK 90X guarda programas transformando as 
inforraaqoes que voce Ihe raanda para a sua memoria 
era sons que podem ser gravados em fitas cassete co- 
muns atraves do mic rof one ( MIC ) do seu gravador. 

0 TK 90X pode entao verificar .(VERIFY) se 
tudo foi gravado adequadamente antes que vocS desli 
gue o mesmo. 

Caso voce queira usar o prograraa novamente 
ligue o TK 90X, volte a fita cassete e C 3 rregue 
(LOAD) o programa para a memoria do TK 90X, porem 


Agora que voce ja teclou alguns 
(todos nao muito longos,..) seria uma boa 
o seu TK 90X "perraitisse" guardar os mesmo 
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desta vez conecte o mesmo ao audio (EAR socket) do 
seu gravador. 

Em resumo, voce guarda (SAVE) o programa 
atraves do MIC e carrega (LOAD) o programa atraves 
do EAR (veja a Figura 1). 

£ muito facil fazer isto, so dependendo do 
ajuste do volume, que alias pode lhe trazer no ini- 
cio, um pouco de "dor de cabeqa" ate que voce se 
acostume com isto. 



Aqui pode surgir a pergunta: "Que tipo de 
gravador devo ter?". 

E ax vai a incrxvel resposta: "0 raelhor 
gravador para o TK 9^X e o gravador de preqo modi-' 
co, portatil e do tipo "mono". 


Os gravadores mais increraentados poderao 

servir mas nao sao tao eficientes. 

0 gravador que voce deve adquirir deve ter 
no minimo duas pequenas entradas, (3,5 mm) ou toma - 
das marcadas com MIC (ou AUX IN) e EAR (ou LS pois 
em ingles "loudspeaker" significa alto falante ou 
ainda AUX OUT). 

Se voce estiver comprando um gravador para 
utilizar especialmente com o TK 90X leve em conta 
estiraado(a) 1eitor(1eitora) as seguintes observe- 
qoes . 

1) Diga ao vendedor que voce quer um gravador para ser usado 
com o TK 90X. 

Pergunte-lhe se podera troca-lo ou devolve-lo caso ele 
nao fundone adequadamente com o TK 90X. 

Alguns gravadores podem nao funcionar bem em conexao com 
o seu TK 90X, mas isto so da para saber depois que voce 
efetuar a compra... 

2) £ interessante que o seu (futuro) gravador tenha um con-* 
tador ou medidor de fita. 

Isto pode ser muito util se voce estiver tentando achar 
um particular programa entre varios que podem ter sido 
gravados na mesma fita. 

3 ) £ mais economico ter um gravador que possa ser ligado na 
rede eletrica, porem se funcionar com bateria isto lhe 
permitira as vezes um rendimento melhor a um custo bem 
maior a nao ser que voce possa recarregar as baterias. 

4) Tenha certeza que existera as embocaduras EAR e MIC como 
foi explicado acima. 

5) Verifique se o gravador pode carregar (LOAD) tanto os pro 
gramas a venda no comercio como aqueles que voce proprio. 
ira gravar e depois carregar. 
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Em primeiro lugar tenha certeza que existe 
algum prograiaa na memoria do TK 90X apertando a te- 
ch | ENTER] . 

Que memoria que voce tem, heinl?J?! 

Caso nao exista nenhum programa, tecle al¬ 
gum ou melhor copie o mais simples dos que ja. apren 


deu ate agora. 

Antes que voce guarde (SAVE) o seu progra- 
ma e necessario que o raesmo tenha um nome curto . 

Suponha que voce decidiu chamar o seu pro- 
grama de "teste". 

Em primeiro lugar efetue a conexao entre 
o MIC do gravador e o MIC do TK 90X. 

Em seguida aperte a tecla S que tem sobre 
si a palavra-chave SAVE e tecle o nome do seu pro- 
grama entre aspas ou seja 

SAVE "teste" ( (.ENTER I ) 


Lembre que o gravador deve estar Ijgado no 
modo de gravagao (PLAY/RECORD). Era alguns gravado- 
res basta apertar o RECORD e por isto veja tambem 
as instrugoes do seu aparelho. 

Depois de ter teclado ENTER aparecerao 
nas bordas da tela faixas horizontais e sons agu- 


dos . 

Ao primeiro sinal se produz a gravagao do 
nome do programa, e faixas de cor vermelha e azul 
sao vistas durante uns 5 segundos. 

Depois disto quando as faixas sao mais ju 
tas e em cores azul e amarela o proprio programa e 
ta sendo gravado. 

Espere ate que aparega a raensagem 


di coJ 
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0 Executado 0 i 1 

Pare o gravador pois o programa esta gra¬ 


vado. » « 


Voce pode nao ter se convencido-disto en- 


tao tecle 


VERIFY "teste" 


VERIFY e uma palavra em vermelho abaixo da 


tecla 


H- 


Mantenha abaixada CAPS SHIFT enquanto Vo 

ce aperta SYMBOL SHIF^J. __ 

0 cursor piscante _K_ muda para o faiscan- 

te 0 no modo e stend'tdo . 

Novamente pressione a tecla CAPS SHIFT e 
mantendo-a abaixada aperte a tecla R. 

Desta forma voce obtera a palavra j VERXFY~ . 
Tecle o nome do seu programa, entre aspas, 
da raesma maneira que voce fez anteriormente com o 


comando SAVE. 


Caso tenha esquecido o nome do seu progra¬ 


ma tecle/ _ 

Agora encaixe o fio na embocadura EAR no 
gravador e no TK 90X. 

Volte a fita ao ponto de partida e coloque 
o volume a tres quartos do maxirao. 

Aperte a tecla PLAY do gravador e em segui 
da aperte a tecla ENTER do TK 

Se realmente voce armazenou (SAVE) o seu 
programa com sucesso tera uma tela branca seguida 

de um bordo faiscante. 

Entao aparecerao as mesmas faixas de cor 
vermelha e azul no bordo, que voce viu quando esta- 
va anazenando o seu programa, seguidas de faixas 


VERIFY 1 
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estreitas de cor azul e amarela. 

Depois das faixas de cor azul e amarela, 
o nome do programa sera impresso no topo da tela 
com a palavra "Programa" em frente do mesmo ou se- 


Programa : teste 

Finalmente quando se chegar ao fira deve 


aparecer a mensagem 


0 Executado 0 : 1 


indicando que voce tem na fita uma boa copia do seu 
programa e com toda confianqa pode desligar o TK 


Carregando programas 




Trim 


f s' Nao se aborre^a se levar algum tempo para 
surgir o primeiro SAVE com sucesso, 

Nem tudo e facil na vida, no inlcio... 

Mas o TK 90X pode fazer mais coisas com o 
gravador e entre elas esta: carregar programas . 

Para carregar (LOAD) urn programa para a me 
raoria do TK 90X ligue o gravador da mesma forma que 
voce fez ha pouco com o VERIFY ou melhor para que 
se possa ler o programa da fita siga os seguintes 


passos: 


1 ) Ajustar o volume do gravador entre 6 e 8 

2) Colocar no agudo maximo no caso de se ter um gravador mono 

3) Acionar o comando LOAD’"’ ou LOAD "teste" 

4) Pressionar a tecla PLAY do gravador 

5) Pressionar a tecla ENTER do TK 90X 

6) Esperar pela mensagem 

i0 Executado 0 : 1 
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Nao esqueqa que se nao souber o nome do 
programa basta escrever LOAD™’ (sem nenhum espaqo 
em branco entre as aspas) porem neste caso o TK 90X 
carregara o primeiro programa que vier na fita, 

Ele tambem imprime o nome do programa na 
tela para que voce tenha um lembrete. 

As novas instrucoes que aparecerara neste 


capitulo sao: 
SAVE "teste” - 


VERIFY "teste" 


LOAD "teste"' 


Diz ao TK 90X para guardar o que tem na 
sea memoria em uma fita cassete com a de- 
nominaqao "teste", 

0 nome do programa pode ter ate um maximo 
de dez caracteres. 

Diz ao TK 90X para verificar se o progra¬ 
ma foi armazenado corretamente, 

Diz ao TK 90X para carregar para a sua 
memoria da fita cassete um programa de no 
me "teste". 


LOAD 1 


Diz ao TK 90X para carregar o primeiro 
programa que encontrar na fita. 

Entre as aspas nao deve haver nada. 
Qualquer uma dessas instruqoes pode ser 
incluida em um trecho do seu programa. 
Assim geralmente no fira de um programa 



pode-se escrever 

888 SAVE "teste":VERIFY "teste" 
e com ura GOTO 888 estaremos guardando e 
verificando o programa. 

Este procedimento e muito util para pro 
gramas longos que introduzimos no TK 90X 
em etapas e queremos armazenar e verifi¬ 
car as copias dos tnesraos. 
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(K1^. ^ Convem neste ponto o(a) atento(a) leitor(lei 
tora) ler o Capitulo 23 do seu Manual de Ope 
ragao do TK 90X pois la encontrara informa- 
goes comp 1eraentares sobre o uso correto de 


SAVE, VERIFY e LOAD. 



,TK9QX,o micro 

chew de prog ra mas. 


AUCRODIGTML 


Capftulo 12 

Como ter uma possibilidade iigada 
a um acontecimento aleatorio 


Logo, logo voce comegara a aprender como 
se pode programair jogos porem antes e importante 
que saiba como se pode escolher ou obter um numero 

aleatorio . 

Um numero aleatorio.e o tipo do numero que 

i 

voce pode obter ao langar um dado. 

Em um dado honesto, qualquer numero entre 
1 e 6 tern a mesma possibilidade ou melhor, probabi- 
lidade de sair, cada vez que se langa o mesmo. 

Vejamos como o TK 90X pode imitar um da 

do. 

Caso voce olhe para a tecla "T", vera a 
"sigla" RND impressa em azul acima da mesma. 

Voce pode acionar esta instrugao apertando 

junto, para 

Ai sim, deve-se apertar a tecla n T" e ter- 
se-a a fungao que gera numeros aleatorios - fungao 
RND de Random (aleatorio em ingles). 

Tecle pois o seguinte mini-programa 
quinto prog'rama ). 


as teclas CAPS SHIFT e SYMBOL SHIFT| 
obter o cursor E piscando. 


( seu 
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PROGRAMA 5 J 

10 PRINT RND 
20 GOTO 10 

Quando voce executar (RUN) este programs, 
vera numeros que o TK 90X acredita sejam numeros 
a!eatorios * 

Devido a instrugao da linha 10 imprime-se 
uni numero aleatorio entre 0 e 1, 

Devido a instrugao da linha 20 o programs 
volta para a linha '10 e impriiue um outro numero e 
um outro numero e outro ate que a tela fique cheia 
com 22 numeros aleatorios ocupando cada um uma li¬ 


nha • 


Ai surge a mensagem 


scroll? 


no espaco de trabalho. 


Caso voce apertar qualquer tecla que nao 
seja ”N" (a qual signifies "nao" neste exemplo), 
SPACE ou STOP , a tela ira "tolar 11 como um anti- 
go pergaminho, e o TK 90X ira imprimir um novo con- 
junto de numeros aleatorios enchendo a tela e dei- 
xando voce perplexo(a) e admirado(a)!I 

Por causa do efeito de 


20 GOTO 10 

envia-se o TK 90X a um laqo (LOOP) sen fim como se 
fosse-um cao tentaddo pegar o seu rabo, 

0 TK 90X dara voltas e voltas continuamen- 
te oferecendo—lhe era cada uma delas um numero inin 
teligivel... 

A forma mais simples para parar a impres- 
sao destes numeros e apertar a tecla SPACE ou en- 
tao a tecla "N". 
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Pessoas mais sofisticadas e que gostam de 
vida cheia de artificios podero tambem usar a sequen 
cia [SYMBOL SHIFT e "A" para parar o programs, 

Isto produz a mensagem: 

D BREAK - CONT repete 10:1 

de forma que pressione a tecla CONT 

se voce precisar - porem voce tera tambem que aper 

tar ENTER | I 

_-J A 

Depois que voce parar um programa como es¬ 
te, se pressionar ENTER a listagem do seu progra¬ 
ma sera mostrada sem que haja a necessidade de te- 
clar LIST . 

Mas qual e a utilidade direta de frames 
decimals tao compridas,'todas entre 0 e 1 como as 

que voce acabou de ver? 

Na realidade, nao e muito grande, porem fa 
cilmente pode-se transformar estas fragoes decimals 
em numeros entre 1 e 6 para simular o que ocorre no 

langamento de um dado* 

Inici almente multipliquemos a fungao RND 

por seis (6)* 

Tecle entao uma linha nova I ou edite(EDIT) 
a antiga 1 inha 10~j. 

10 PRINT RND * 6 


Quando voce executar (RUN) este programa 
revisto os numeros aparecerao no intervalo de 0 (o 
qual voce nlo quer) a 6 (o qual voce quer.mas que 
jamais sera atingido e portanto exibido). 

Alem disto os numeros tem ainda muitas ca- 

s as decimals * 

Voce pode se livrar desta indesejavel par- 
te decimal- usando a instru$ao ou seja a funqao INT, 
impressa era azul acima da tecla R.. 
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Note que voce precise do modo estendido(mo 
do E) ou ampliado para "chegar" ate o INT de forma 
que use as teclas GAPS SHIFT* e SYMBOL SHIFT jun 
to ou seja ao mesmo tempo* 

Modifique a linha 10 para 

10 PRINT INT (RND * 6) 
e nao esquega dos parenteses ll !! 

Execute (RUN) outra vez o programa. 

Tem urn aspecto bem melhor, nao e? 

A fungao INT realmente nos livrou da inco- 
moda parte decimal dos numeros porem resta ainda um 
problema os numeros que estao inscritos nas faces 
de um dado sao 1,2,3,4,5 e 6 enquanto o que se exi- 
be na tela sao os numeros 0,1,2,3,4 e 5. 

Voce e capaz de advinhar como iremos ensi- 
nar o TK 90X a transformer 0 em 1 e o 5 em 6? 

Ai vai a resposta: 

Q.Q print int(rnd * 6) + 1 *) 

Por enquanto nao e muito importante se vo¬ 
ce nao esta entendendo o que estou fazendo desde 
que compreenda que se vai obter os numeros ’ que se 
que r. 


Realmente INT(RND*6)+1 produz o seguinte 
e feito: 



eliraina a parte fracionaria dos nu¬ 
meros positivos 

produz um numero aleatorio entre 0 
e 1 sendo que o extremo 1 nao esta 
incluido. 

multiplica-se por 6 que e um numero, 
uma unidade a mais que o valor da 
diferenga entre o maior e o menor 
numero que voce quer (6-1=3) 
acrescenta-se o menor numero que vo 
ce quer. 


1 


67 


A palavra-chave em branco na tecla T e 

I'rand. 

Quando voce apertar esta tecla, a palavra 
RAND sera impressa na tela* 

Isto e necessario para que o TK 90X leia 
numeros aleatorios de uma lista. 

. Quando o TK 90X e desligado, ao ser ligado 
novamente ele.comega a ler esta lista sempre no mes 


mo lugar* 

RAND diz ao TK 90X para ler os nume¬ 
ros aleatorios a partir de uma posigao aleatoria 

nesta lista, de forma que voce 'jamais obtera a 
mesraa serie de numeros aleatorios I?!?!? 

Existe uma coisa muito importante que voce 
deve aprender neste ponto, antes .'por exemplo de par 
ticipar do seu primeiro jogo no TK 90X* 

Voce ja conhece o sinal de <igual (=■) conr-, 
forme foi indicado na Tabela 2* 

0 TK 90X entende outros•simbolos similares 


e que serao muito uteis daqui para frente. 



Tabela 4 - Operadores relacionais 
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Todos estes simbolos ou sinais estao dese* 
nhados com cor vermelha nas teclas indicadas na Ta- 


bela 4. 


Caso nao tivessemos estes simbolos como e 


que poderiamos descartar todas as candidatas a miss 
Universo se as condiqoes elementares fossem medir 
mais do que 1,70 metros e pesar menos que 60 quilo- 


gramas? 


Na realidade todos estes simbolos aparece~ 


rao dentro das instruqoes IF-THEN como por exemplo: 

IF chute < numero THEN faqa algo 

onde se (IF) o seu "chute” for raenor que um certo 

"numero” entao (THEN) deve ser feito algo. 

Uma outra’forma pode ser: 

IF chute < >numero THEN faqa algo 

que significa se (IF) o seu "chute" e diferente (ou 
nao igual)ao "numero", entao (THEN) faqa algo. 

Falaremos ja, ja mais um pouco sobre o 
IF.'..THEN e muito no Capitulo 13 porem por enquan- 
to comece a teclar o sexto programa. 


PROGRAMA 6 J 

10 REM *** 0 JOGO DA ADVINHAg&O*** - 

20 RAND -► |RANDOMIZE - 

30 PRINT "Advinhe o numero entre 1 e 50 


'mr? 


que eu TK 90X escolhi" 

40 LET numero - INT (50*RND)+1 

50 LET tentativa - 0 

60 INPUT "Entre com o seu 
chuteD"; chute 

70 LET tentativa = tentativa*1 


0 programa comeqa 
com uma nova pala 
vra chave REM que 
voce achara na 
tecla "E" 
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80 PRINT "Na tentativa □" ; tentativa; "Do seu 
chute foi D'; chute 

90 IF chute < numero THEN PRINT "Escolheu um nu¬ 
mero menor" 

100 IF chute > numero THEN PRINT "Escolheu um nu 
mero maior" 

110 IF chute < >numero THEN GOTO 60 
120 PRINT "Parabens, esta correto!!!" 

130 SOUND 3,7 
140 CLS 
150 GOTO 30. 



Execute o programa e entao veja se voce po 
de parar o mesmo!!! 

Voce vai sentir que o seu TK 90X as vezes 
se entusiasma tanto que e duro para parar. 

Nao adianta apertar a tecla BREAK . 

A saida e pressionar a tecla SYMBOL SHIFT 
e a tecla "A" onde v.-esta o STOP 

Deu'para parar? 

U oootimo l I! 


Exp1icaqoes detalhadas sobre o sexto pro • 


grama 


Linha 10 —REM e uma palavra chave muito util (esta na te 
cla "E") pois permite que se possa incluir co- 
mentarios (remarks era ingles) ou observances 
nos programas, tais como o titulo que foi in- 
troduzido. 

0 TK 90X ignora tudo que estiver na linha logo 
apos o REM ou seja o conteudo daquilo que vein 
apos o REM em nada influencia a execuqao do 


programa 


Linha 20 


RANE[ diz ao TK 90X para escolher uma posi 
qao inicial aleatoria dentro da sua lista de nu 
meros aleatorios. 
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Linha 30 —► Imprime uma mensagem no topo da tela sobre o jo- 

go* 

Linha 40 —Diz ao TK 90X para escolher urn numero aleatoria- 
mente entre 1 e 50. 

Linha 50 —Ai se inicializa.a variavel "tentative" com a 
qual se vai contar quantas vezes voce ira chu- 
tar ate acertar no numero que o TK 90X escolheu. 

Linha 60 —Ai o TK 90X Ihe pede para entrar com a sua advi- 
nhaqao que sera armazenada na variavel "chute". 

Linha 70 —► Conta-se o numero de tentativas acrescentando-se 
cada vez que se passa por ax uma unidade. 

Linha 80 —Imprime-se o numero da tentative e o numero es- 
colhido por voce (jogador ou jogadora). 

Linha 90 —Imprime-se a mensagem somente se o seu "chute" 
for menor do que o numero correto - voce es 
id abaixo . 

Linha 100Imprime-se a mensagem somente se o seu "chute" 

for maior do que o .numero c’orreto - voce esta 
acima. 

Linha 110 ~**Diz ao TK 90X para ir de volta a linha 60 se o 
seu "chute" nao e igual ao numero correto. 

Linha 120-*-Caso o programa atinja este ponto sera que algo 
tenha sido irapresso devido as linhas 90 ou 100 e 
sem ter sido enviado de volta pelo desvio incon- 
dicional GOTO 60, entao finalmente voce acertou. 
Como premio deve ver a mensagem "Parabens, esta 
corretoI!!" 

Linha 130-*-Faz com que o TK 90X emita um sora para comemorar 
o seu feito e com isto provocar uma pequena pau- 
sa, para que se tenha tempo de ler a ultima men¬ 


sagem. 
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Falaremos adiante muito mais sobre o comando SOUND 
que e sempre seguido de dois numeros o primeiro 
indicando o comprimento de uma nota e o segundo 
(separado por virgula do priraeiro) a altura ou 
torn da mesma. 

Mas isto sera nos programas musicais. 

Linha 140Cora o comando CLS (esta na tecla "V”) manda-se 
limpar a tela e assim estar pronto para outro jo 
go. Em ingles'"clear, screen" 

Linha 150—►Desvia incondicionalmente para a linha 30 para 
ura novo jogo. 


PROGRAMA 7 J 

Neste prdgrama o seu TK 90X lh.e dara o nu¬ 
mero e o seu logaritmo natural para cada numero que 

voce enviar ao TK 90X. 

Caso o numero introduzido seja maior que 
10 21 ou seja 1E+21 manda-se parar o programa (li 
nha 80). 

Ax esta o programa: 

10 PRINT "Entre com o numero" 

20 INPUT x - 

30 IF X > 1E+21 THEN GOTO 80 - •VtOlhe a instruqao' 

40 PRINT "Numero"., "Logaritmo / o dasvio quan(Jo 

50 PRINT x, LNx /LN 10 . \ ojiumero que vo- 

\ ce introduzir 

80 PRINT \ for muito grande 

10 GOTO 10 fyOw ^ 1- 

80 STOP \VX 

„ .. ~ 'td y 

Explicacoes 


1) A funqao L N numero calcula o logarit¬ 
mo natural ou seja na base e (e = 2,7182818) de ura 


"numero".positivo. 
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gativo 


Ocorre erro caso o nume.ro seja nulo ou ne- 

A fungao LN esta em azul acima da tecla Z 
Como queremos o logaritmo na base 10* (dez) 


tilizou-se a formula matematica 


• log e x 

log 10 x = log 10 
e 

2) A instrugao STOP da linha 80 e para fi- 
nalizar a execugao de urn programa, 

G±) Caso voce nao salba o que e um loga¬ 
ritmo consulte alguem que esteja cursando o 29 grau. 

Muitas foram as novas informagoes deste ca 
pitulo lembre entao que: 


GOTO 




Diz ao TK 90X para desviar (para frente 
ou para tras) para uma^ particular linha 
cujo numero e indicado apos o GOTO. 
Assim a palavra chave GOTO (esta na te¬ 
cla "G”) e usada para modificar a ordeia 
na qual as instrugoes do programa sao 
executadas fazendo com que o TK 90X "pu 
le" para uma outra linha. 

Para nao esquecer o efeito do GOTO te~ 
cle o seguinte mini-programa 
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10 PRINT "TK 90XDD'? 

15 POKE 23692 ,0 -► 

20 GOTO 10 


Este coraando esta na letra "0" 
e fara com que, o que se exibe 
na tela,va subindo para sempre 
sem. lhe pedir permissao e evi- 
tando a mensagem ’'scroll? 11 . 
Caso voce nao tenha entendido 
esta linha nao se preocupe por 
enquanto. 

Trate-a comp se fosse uma in- 
falive 1 formula magina.. 


Para parar este "LOOP" sem fim a unica for 
ma sem desligar o TK 90X da tomada e apertando si- 
raultaneamente as teclas CAPS' SHIFT e BREAK . 

RND -*-Diz ao TK 90X para escolher um numero 

aleatorio entre 0 el de uma lista pre 
definida. 

0 RND esta acima da tecla "T". 

RAND(omize) —►Diz ao TK 90X para escolher um nu¬ 
mero aleatorio de um ponto aleato¬ 
rio desta lista. 

0 RAND esta na tecla "T". 

INT --A fungao INT diz ao TK 90X para cortar 

l ^« l ■ I I M i J 

a parte de um numero apos o ponto de- 
cimal. 

Esta fungao esta sobre a tecla "R”. 


INT 
— L — 


Sobre o IF-THEN, o CLS e o SOUND falaremos 


mui to. adiante . 


jsj . v No momento veja se da para entender o pro- 
^ * # * 

grama 4 do Capitulo 23. 
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Va la (GOTO) mas volte pois nao e ura des- 
vio sem volt a *.. 



Caprtulo 13 

Fazendo decisoes com o auxflio 
do TK 90X 


Uma das grandes vantagens que possui o TK 
90X e a possibi1idade de ser programado de tal for¬ 
ma que possa "tomar 'deeisoes"* 

Logo, logo voce aprendera como se pode pro 
graiaar o TK 90X para que o mesmo verifique se por 
exemplo a tecla que foi apertada e para mover uma 
nave para cima, para baixo, para a esquerda ou para 
a direlta ou ainda se deve ser disparado o missil 
da mesraa. 

Assira um trecho de um programs podera ter 
o seguinte aspecto 


IF (se) a tecla "5” for pressionada THEN (entao) mova a na¬ 
ve para esquerda 

IF (se) a tecla ”8" for pressionada THEN (entao) raova a na¬ 
ve para a direlta 

IF (se) a tecla M 6" for pressionada THEN (entao) mova a na¬ 
ve para baixo 

IF (se) a tecla "7” for pressionada THEN (entao) mova a na¬ 
ve para cima 

IF (se) a tecla "D" for pressionada THEN (entao) dispare o 
missil 

IF (se)o missil atingiu o objetivo THEN (entao) simule 
uma explosao e acrescente 100 pontos a sua contagem. 


etc. 
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Em geral voce programara o TK 90X para fa- 
zer decisoes usando a instruqao 


IF *.♦THEN 


Como ja comentei de "raspao" no Capitulo 
12,o efeito do IF♦♦♦THEN e dizer ao TK 90X que: 


IF(se) algo e verdadeiro (como "e verdade que a tecla 
"5 M foi pressionada) THEN (entao) o TK 90X precisa fa- 
zer algo (como deslocar a nave para a esquerda). 


£ claro que voce ainda nao esta apto para 
programar jogos espaciais e por Isto o nosso oitavo 
programa usara muito a instruqao 
mesmo tempo o colocara era contato com os recursos 
coloridos do seu TK90X. 

Espero que voce tenha uma T.V. colorida em 
casa pois caso contrario isto e nuraa T.V. em preto 
e branco o maximo que veras sao os efeitos em dife- 
rentes tons de cinza. 

Tecle por enquanto o seguinte 


IF...THEN 


ad 


( 


PROGRAMA 8 



10 CLS 

20 PRINT "Voce gostaria de mudar:" 

30 PRINT ”1 - a cor da borda (BORDER)" 

40 PRINT "2 - a cor do papel (PAPER)” 

50 PRINT ”3 - a cor da tinta (INK)" 

60 INPUT "Entre com 1,2 ou 30"; escolha 

70 IF esoolha = 1 THEN GOTO 200 

80 IF escolha = 2 THEN GOTO 300 

90 IF escolha = 3 THEN GOTO 400 

100 PRINT "Ouga^humanoids, o numero precisa ser 
1,2 ou 31 Nao brinque comigo!” 

110 PRINT "Nao estou zangado, por favor tente de 
novo..." 


120 GOTO 20 

200 REM A sua escolha recaiu sobre o 1 (BORDER) 

210 CLS 

220 INPUT "Qual e a oor que voce quer (0-7)?Q"; 
cor 

230 BORDER Cor 

240 PRINT "0 numero da cor da borda (BORDER) e: 
til"; cor 

250 PRINT 

260 GOTO 20 

300 REM A sua escolha recaiu sobre o 2 (PAPER' 

310 CLS 

320 INPUT "Qual e a cor que voce quer (0-7);Q f, 7 
cor 

330 PAPER cor: CLS: PAPER cor 

340 PRINT "0 numero da cor do papel PAPER cor : EH" 1 
cor 

350 PRINT 
360 GOTO 20 

400 REM A sua escolha recaiu sobre o 3 (INK) 

410 CLS 

420 INPUT ” Qual e a cor que voce quer (0-7)? 
cor 

430 INK cor 

440 PRINT "0 numero da cor da tinta (INK) e:Q"; 
cor 

450 PRINT 
460 GOTO 20 

Explicates detalhadas sobre o oitavo pro- 

grama . 

.Linha 10—• Com esta instruqao lirapa-se a tela toda para se 
receber o novo programa. 

Linha 20 a 60 —►Espero que esta parte esteja totalmente cla 
ra para voce, pelo que se explicou nos capitulos 
anteriores. 
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Caso is to nao seja verdade ("true*’) volte ime 
diatamente para o ponto em que tem duvidas... 

Linhas 70 a 90-*-Em primeiro lugar a pa lavra chave (branca) IF 

esta na tecla "U” de forma que so aperte a 
mesma apos ter teclado o numero de linha. 

Ja para obter o THEN voce deve manter abaixa- 
da a tecla SYMBOL SHIFT enquanto aperta a 
tecla "G M . 

Note que sem apertar a SYMBOL SHIFT apertan 

. ■ 11 

do a tecla M G" obtem-se o GOTO. 

Ao se usar o THEN o TK 90X automaticamente se 
prepara para reconhecer que a proxima tecla 
a ser pressionada corresponde a uma palavra 
chave (comando) e nao uma simples letra. 

Caso a sua "escolha" for igual a "l” vai-se 
para 200, caso seja igual a "2” vai-se para 
300, caso for "3” vai-se para 400 e caso voce 
entrar com um numero diferente de 1,2 ou 3 o 
controle do programa e transferido para a li- 
nha de numero 100. 

Linhas 100 a 120 —*-Bem ai aparecem as men$agens de que voce 

entrou com numero-codigo errado e pede-se que 
voce entre com a "escolha" novamente fazendo 
voltar para a linha 20 devido ao GOTO da li- 
nha 120. 

Linhas 200,300 e 400 —*-Estas linhas nao sao estritamente ne- 

cessarias porem e util incluir uma instruqao 
REM no inicio de cada trecho distinto de um 
programa para destacar para voce o que real- 
mente faz o seu TK 90X neste trecho. 

No trecho 200 a 260 escolhe-se a cor da borda, 
mostra-se isto e volta-se a 20. 
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No trecho 300 a 360 escolhe—se a cor do pa 
pel, mostra-se isto e volta-se a 20, 

No trecho 400 a 460 escolhe-se a cor da 
tinta, mostra-se isto e volta-se a 20 

Linhas 210, 310 e 410 Com o comando CLS limpa-se simples- 

mente tudo que ha na tela de forma que vo¬ 
ce possa a partir deste ponto comeqar com 
uma tela nova e limpa. 

Linhas 220, 320 e 420 —*-Utiliza-se o INPUT para parar o pro 

grama e desta forma voce pode informar ao 
TK 9j$X o numero da cor que voce deseja. 

Ele entao armazena este numero na caixa da 
memoria identificada pelo nome de variavel 
' "cor". 

0 TK 90X tem oito cores numeradas de 0(pre 
to) ate o 7 (branco) de forma que Tt (0-7)? TT 
e simplesmente o intervalo no qual estao 
todas as entradas tegais . 

As outras cores estao indicadas no teclado 
acima dos numeros 1,2,3,4,5 e 6, 

Nao esqueqa 1 que se voce entrar com um nume 
ro que nao seja 0,1,2,3,4,5,6 ou 7 isto 
provoca uma entrada ilegat* 

Ao Tt rodar n o programa de uma entrada ile- 
gal para ver o que acontece. 

Linha 230 -- 0 que voce deve fazer aqui e apertar a pa- 

lavra-chave (branca) BORDER que esta na 
tecla ”B”. 

Por favor nao tecle este comando como um 
conjunto de letras separadas B,0,R,D,E,R. 
Vai dar erro, viu?!!?. f 

Alias o raesmo se aplica a REM, CLS, PRINT, 



etc. 
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0 seu TK 90X ja lhe apresenta a vantagem da 
simplifica$ao e por is to nao procure o cami 
nho da complica^ac... 

Com BORDER define-se a cor que se quer para 
a borda, margem, beira, orla, fronteira ou 
simplesmente da area que faz o contorno da 
area de impressao. 

Assim por exemplo com BORDER 6 se ordena ao 
TK 90X para fazer amarela esta regiao exter 
na da tela. 

Linhas 240, 340 e 440 —►No caso da linha 240 imprime-se na 

tela a mensagem TT o numero da cor da borda 
‘(BORDER) e 

0 ponto e virgula (;) e a palavra "cor tT 
apos a mensagem, diz ao TK 90X: 
"imediatamente apos o espaqo em branco de- 
pois do T, e" voce deve imprimir o numero que 
esta contido na caixa de- memoria com o ro- 
tulo "cor" 

fi analogo o que ocorre nas linhas 340 (se 
bem que ai e para o PAPER) e 440 (ai para o 
INK). 

Linhas 250, 350 e 450 —►O PRINT sem nada depois dele faz 

com que o TK 90X deixe uraa linha em branco 
Como ja disse anteriormente e apenas para 
fazer com que na tela da T.V. seja mais sim 
pies ler e identificar as respostas. 

Como voce queira sentir a diferenqa, execu¬ 
te o programa removendo estas linhas do mes’ 
mo e depois execute novamente com todas 
estas linhas presentes. 
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Linhas 260, 360 e 460 •►'-►Com a instruqao GOTO 20 inforraa-se 

ao TK 90X para voltar para a linha 20 do 
programa e comesar tudo de novo. 

A economia que voce obt£m com is to e que 
desta maneira naoe necessario teclar toda 
vez o RUN para ver novamente uma- outra cor 


Linha 330 


Para se poder entrar com PAPER, cuja cor e 
vermelha voce deve estar no modo estendido 
(modo E) e para tanto mantenha abaixada a 
tecla CAPS SHIFT enquanto aperta a te- 
cla [SYMBOL SHIFT| . 

0 cursor que esta piscando, deve mudar de 
K para E . 

Com a tecla CAPS SHIFT abaixada outra 
vez voce deve apertar a tecla "C" e ai sur 
gira escrito PAPER. 

Se voce esquecer de apertar novamente a te 
cla CAPS SHIFT e apertar somente a tecla 
"C" aparecera o que esta escrito em azul 
acima da tecla M C" ou seja LPRINT. 

Caso isto ocorra, use o DELETE e entao vol 
te novamente ao modo estendido e tente de 


novo. 

Ate agora nao demos grandes detalhes sobre 
a tela do seu aparelho de T.V. quando o 
mesrao esta ligado ao TK 90X. 

A tela da sua T.V. fica como se fosse um 
quadro negro no qual o TK 90X tem escrito 
as respostas as perguntas que tem sido fei 
tas a ele. 
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Bern, como o TK 90X nao tern olhos como voce 
ele precisa de pontos de referenda aos quais vai 
dirigir-se para poder imprimir bem na posiqao qUie 
lhe for indicada. 

Cora este fim o TK 90X considera a tela di~ 
vidida em 24 linhas e 32 colunas, numeradas de 0 em 
diante a partir do canto superior da esquerda con- 
forme esta indicado na Figura 2* 


0 1 2 3 4 5 6 T 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 23 26 27 26 29 30 31 



As linhas 22 e 23 estao reservadas para 
que o TK 90X possa comunicar-se oontigo humanoide 
ou seja nao estao disponiveis para voce no que se 
refere a apresentar resultados e linhas de programa 
- este e o espaqo de trabalho. 


Portanto o TK 90X considera a tela do seu 
aparelho de T.V. dividida em urn retangulo de 24 li 
nhas e 32 colunas ficando desta forma clararaente de 
finidas duas zonas na tela; a primeira que corres- 
ponde a zona onde se produzirao as impressoes cor¬ 
respondences as mensagens e informaqao em geral pro 
veniente do TK 90X e a segunda que e todo o resto 
da tela que rodeia este retangulo. 

£ esta ultima aona que se pinta com o co- 
mando BORDER. 

A palavra PAPER significa papel em ingles 
e e esta a instruqao que determine, junto com o nu- 
mero que a segue, a cor que deve ter o retangulo on 
de sac feitas as impres.soes. 

Por exemplo com PAPER 2 se colorira de ver 
melho este retangulo. 

Quando voce executar (RUN,) o programa pode 
ra notar que certas combinaqoes de cores nao funcio 
narao muito bem... 

Por exemplo, se voce tentar imprimir 
(PRINT) letras em preto em urn- fundo preto, e evi- 
dente que nao conseguira ler nada. 
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(g t, 4 .Nao esqueqa, que se voce estiver em d ificul- 
JtfHk. dades pode sempre apertar a tecla SYMBOL 

SHIFT enquanto aperta tarabem a tecla "A" pa 
parar (STOP) o "problems". 

Entao tente teclar PAPER 7 (usando a te- 

CD ^ 

cla "C Tt no modo E) para que se tenha um fundo bran- 

co. _ 

Finalmente apertando o ENTER e entao 

LIST voce devera voltar a normalidade. «. 

Linha 430 --►Com esta instruqao "ensina-se" ao TK 90X para 
mudar a cor da-tints (em ingles a palavra INK 
significa tinta) para o valor que esta armazena 
do na caixa de memoria com o rotulo "cor". 

£ com esta fungao (use CAPS SHIFT , SYMBOL 
SHIFT apertadas simultaneamente para entrar no 
modo E e depois CAPS SHIFT • e a tecla "X" para 
poder escrever a instruqao INK) que se faz com 
que os caracteres que aparecem na zona de im- 
pressao tenham a cor que voce queira. 
fi evidence que nao se deve ter PAPER (papel) e 
INK (tinta) com os numeros iguais apos os mes- 
mos. 

Deve-se destacar que quando o seu TK 90X e liga 
do BORDER e PAPER estao automaticamente na cor 
branca (numero 7) e INK e preto (numero 0). 


^0.1. ^ Caso voce queira que toda a tela mude de, cor, 
-—-v. deve refazer a tela com uma instruqao CLS an 
^3 tes da proxima instruqao PRINT e desta forma 
Aprv. acrescente as seguintes linhas. 

^ Q^Caso voce nao queira isto, PAPER e INK in- 
fluenciarao apenas na instruqao PRINT atual. 
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Bern, as novas e importantes instruqoes que 


voce nao deve esquecer mais sao as seguintes: 


IF...THEN 


BORDER 


PAPER 


•-Diz ao TK 9f$X para efetuar um teste que per 

mita saber se uma condiqao e verdadeira e 

o que deve ser feito nesta situaqao. 

■ Diz ao TK 90X para limpar a tela para o con 
junto de cores. 

0 comando CLS esta na tecla "V". 

► Diz ao TK 90X para "ajustar" a cor da borda 
ou seja da margem. 

Note que o BORDER esta na tecla tT B". 

- Diz ao TK 90X para ajustar a cor do fundo 

ou seja a cor do "papel" que e o retangulo 

central da tela. 

Para se obter o PAPER apos a sequencia 
CAPS SHIFTl , |SYMBOL SHIFTj , |CAPS SHIFT 

. i 1 —' 

modo E 

deve-se apertar a tecla "C". 

Diz ao TK 9pX para ajustar a cor do primei- 
ro piano ou seja a cor da "tinta". 

Para se obter o INK apos a sequencia 


CAPS SHIFT SYMBOL SHIFT[ 

. .— -y-» 

A 

deve-se apertar a tecla "X". 


CAPS SHIFT 
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Capftulo 14 

Utilizando subrotinas para inclusive 
obter economia de digitacao 



0 oitavo programa ainda esta na memoria do 

TK 90X? 

Espero ao menos que voce tenha tido a boa 
ideia de te-lo guardado numa fita. 

Carregue-o e de um LIST. 

0 que, nem esta na memoria e nem salvou o 

mesmo ? 

Pessimo !Ill 

Ai nao tem jeito vai ter que bater uma boa 
parte del.e novamente. 

Antes entretanto note que muitas linhas 

eram praticamente identicas no oitavo programa ou 
se ja 

210 CLS 

220 INPUT "Qual e a cor que voce quer (0-7)?D n ; 
cor 

e o mesmo acontece com (menos os nuraeros de linha) 
310. CLS 

320 INPUT "Qual e a cor que voce quer (0~7) ?tZl fl ; 
cor 

e aind«a 
*10 CLS 

420 INPUT "Qual e a cor que voce quer (0-7)?n n ; 


cor 
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D TK 90X tern uma forma bem simples de im- 
primir estas duas linhas mais do que uma vez. 

E ai, que pode ser usada uma subrotina . 

^^u^^^umc^^ubr^ina^ 

Resp.: Uma subrotina e nada mais, nada menos que um pequeno 
programa dentro do proprio programa. 

As linhas de 200 a 260 formam uma subroti¬ 
na, o mesmo se pode dizer das linhas de 300 a 360 e 
tambem das linhas 400 ate 460. 

Apos se desviar para uma ou outra dessas 
subrotinas (o que alias foi decidido pela instru- 
qao IF...THEN), a mesma era executada segurtdo ins- 
trugoes como: 

200 REM A sua escolha recaiu sobre o 1 (BORDER) 

210 CLS 

220 INPUT ”Qual e a cor que voce quer (0-7)?HU"; 
cor 

230 BORDER cor 

240 PRINT "0 numero da cor da borda (BORDER) e: 

□ cor 

250 PRINT 

260 GOTO 20 


Usando o comando GOSUB 

A instrugao GOTO e rauito boa quando usaraos 
uma subrotina apenas uma vez. 

Porem, se voce estiver usando as mesmas li 
nhas de programa varias vezes no programa como fize 
mos com as linhas 210 e 220 ou 310 e 320 ou ainda 
410 e 420 o uso de uma subrotina que e chamada pelo 
comando GOSUB e preferxveI.*, 

Se associamos a ideia de que um programa 
e uma rotina, sera imediato concluir que uma subro¬ 



tina e um programa que esta dentro de uma rotina ge 
ral ou seja o proprio programa , 

Em ingles, na suposigao que estavas queren 
do mandar alguem (de preferencia o TK 90X) a uma 
subrotina dirias, "goto sub routine" (va para a sub¬ 
rotina) e para voltar da mesma falarias ’’return” 
(volte). 

£ foi pensando nisto que se criaram no 
BASIC as instrugoes GOSUB, para sair do programa 
principal, efetuar algum processo de trabalho na 
subrotina e RETURN, para voltar ao programa geral 
exatamente na linha que vem imediatamente apos a 1 
nha do GOSUB. 

Pode-se dizer que as "rotinas" GOSUB sao 
quase identicas as "rotinas” GOTO. 

A grande e fundamental diferenga e que o 
TK 90X lembra onde ele estava no programa principal 
e volta para a posigao seguinte a esta quando no 
final da subrotina encontrar a instrugao RETURN, 

Para mostrar-lhe como- isto funciona vamos 
criar uma nova (e primeira) subrotina para fazer o 
trabalho de limpar a tela (CLS) e perguntar-lhe 
qual e a cor que voce deseja. 

£ na tecla "Y" que voce encontra a pala- 
vra-chave (branca) RETURN. 

Acrescente ao oitavo programa as seguintes 

linhas 

500 REM Subrotina para a limpeza da tela e 
escolha da cor 

510 CLS 

520 INPUT "Qual e a cor que voce quer (0-7) ?l I 11 • 
cor 

530 RETURN 


I H* 
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Isto e tudo que voce tera na subrotina. 
Agora, para que tudo funcione direitinho 
elimine as linhas 


210 

310 

410 



que nao sao mais necessarias e modifique as linhas 
220 , 320 e 420 introduzindo ai a palav-ra-chave(bran 
ca) GOSUB que esta na tecla "H" da seguinte forma: 


220 GOSUB 500 
320 GOSUB 500 
420 GOSUB 500 


Como* um toque final, para evitar que voce 
cometa alguma confusao para reconhecer este progra¬ 
ms que sem duvida era bom ter gravado numa fitajCO- 
loque nele o titulo 



Isto auxiliara voce a lembrar que esta e 
uma versao otimizada do oitavo programa, no qua! 
se tinha o contato com as cores do seu TK 90X* 


Ah: Ah: Ah: 

la esquecendo isto!’! 

Execute (RUN) o programa "CORES E SUBROTI¬ 
NA" a&ora com a sua primeira subrotina. 


As novas instruqoes deste capitulo f-oram: 
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GOSUB - - Diz ao TK 90X para lembrar a sua 

posiqao e ir (GO) ate a subrotina 
(SUB). 

Esta palavra-chave em cor branca 
esta na tecla TT H TT . 

RETURN -Diz ao TK 90X para voltar a posiq.ao 

imediatamente seguinte aquela que 
ele lembra quando saiu devido ao- 
comando GOSUB. 

A palavra-chave RETURN, que tem cor 
branca,esta na tecla "Y". 







Caprtulo 15 

Movendo coisas na tela 


Voce ja-esta acostumado a ver o seu TK 
a imprimir coisas nos mais diferentes pontos da te~ 
1 a. 

Porem se voce quiser por exemplo elaborar 
programas para jogos eletronicos precisara saber co 
mo controlar onde as coisas aparecem na tela e piin 
cipalmente saber movitnenta-1 as . 

Inicialmente voce deve aprender corao o TK90X 
pode ser ensinado a imprimir em qualquer posigao da 
tela* 

.Ja Ihe foi dito que a tela onde sao feitas 
as impressoes e constituida de 22 linhas numeradas 
de 0 (zero) no topo ate a linha em baixo elogo aci- 
ma do espago para o trabalho cujo numero e 21 (veja 
a Figura 2). 

Cada uma destas linhas pode conter 32 ca- 
racteres ao longo da tela. 

0 espago individual no qual cada letra, nu 
mero ou simbolo pode ser impresso pode ser chamado 
de tT re tangulo 11 . 

Como as colunas sao numeradas de 0 a es- 
querda, ate 31 a direita da tela pode-se de forma 
unica definir cada um dos 32x22 = 704 retangulos 
onde se quer comegar a imprimir. 
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Desta forma caso voce queira que saia uma 
letra bem em cima e bem a esquerda da tela a sua po 


siqao serial 


linha 0, coluna 0 


a qua1 o TK 90X entende corao posigao 0,0, 

Se voce quer iraprimir um caractere no' topo 
e n<o canto da direita da tela a sua- posiqao serial 

linha 0, coluna 31j 
ou 0,31 de uma forma mais compacta* 

0 retangulo mais baixo e no canto da es- 
querda (imediatamente acima do espaqo de trabalho) 
seria indicado por 

linha 21, coluna 0 ou 21,0 de uma forma 
mais compacta, 

Como e qiie se especifica o canto baixo e 
da direita? 



Voce precisa usar a instrugao (vermelha) 
AT, a qual esta impressa sobre a tecla "I M e preci¬ 
sa tambem incluir a vi.rgula e o ponto e virgula, 

0 comando que voce deu ha pouco ao TK 90X 
significa imprima (PRINT) a mensagem "SOU 0 SEU TK 
90X" na linha numero 4 e comegando a impressao a 
parfcir da coluna numero 10, (veja a Figura 3), 
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Figura 3 


Vamos no nono pvogvama fazer com que um 
nome se mova ao longo de uma linha e para tanto pre 
cisamos ensinar o TK 90X a imprimi-lo a partir de 
diferentes posigoes. 

Tecle o programa e a seguir execute o mes- 


mo, 


Veja se compreende como o mesiao funciona e 
se identifica alguraas incoerencias,,. 



10 REM *** MOVENDO UM NOME *** 

20 LET linha = 11 
30 LET coluna “ 0 

40 INPUT "Qual e o seu primeiro nomePd" ; n$ 

50 PRINT AT linha, coluna; n$ 

60 LET coluna * coluna + 1 
10 GOTO 50 

Voce nao acha que esta tudo acontecendo um 
pouco depressa? 

Concordas! ! I 
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Que tal provocar um pequeno atraso? 

Como e uma boa ideia vamos introduzir uraa 
pausa musical com o auxilio do SOUND que esta impres 
so era verinelho na tecla "Z TT . 

Xntroduza pois a seguinte linha: 

65 SOUND 1,10 


e execute (RUN) o programa novamente. 

Com a introduqao desta linha emite-se 
(SOUND) o tom de nuiaero 10 durante 1 segundo apos 
cada impressao do seu norae. 

Altere a linha 65 para 

C 65 SOUND.3~ coluna ) 


[o.I. y Hantenha abaixada a tecla SYMBOL SHIFT] en- 
quanto voce aperta a tecla "M fl para se obter 
jklTfc o ponto decimal que deve aparecer antes do 




'—ip 


Execute (RUN) o programa novamente. 
Hummmmram... 

Interessante, mas nao e exatamente o que 


s e pre tendia. 

Tetn-se uma "trilha" de letras iniciais que 
e um estorvo e alem do mais surge a estranha mensa- 
gem de erro 


B inteiro excede limite 50:1 


Antes de iniciar a eliminaqao desta "man- 
cada" seria interessante que voce realmente compre- 
endesse como funciona o Yiono programa, 

A trilha de letras (sem nenhum intervalo) 
e provocada pelo fato de que ninguem ensinou e tao 
pouco pediu ao TK 90X para apagar o norae antigo an¬ 
tes de imprimir o mesmo em uma outra posiqao. 
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Desta forma execute (RUN) o programa mais 
uma vez porem quando o TK 90X lhe perguntar: 

"Qual e'o seu primeiro nome? 

pressione inicialraente a tecla SPACE (espaqo em bran 
co) uma vez, ante's que voce entre com o seu norae 
digamos: 

''□Sergio” 

Execute (RUN) agora e nao va dizer que o 
seu TK 90X e um magico. 

0 que ele e realmente e artificioso... 
Como provavelmente voce podera esquecer 
deste espago em branco (magico) eu lhe indicarei no 
proximo programa exemplo, o de n9 10, uma forma do 
TK 90X lhe colocar este espaqo.■ 

Desta forma guarde (SAVE) este programa em 
uma fita cassete ou entao deixe na ( memoria do TK 90X 
pois no Capitulo 15 iremos utilizar o mesmo. 

p rograma 

Linha 10-^Isto ja e muito simples. REM lhe permite escrever 
algo que voce acha que e explicativo ou indicati¬ 
ve para o programa como por exemplo o titulo do 
mesmo. 

Qualquer coisa que for teclada apos a palavra-cha 
ve REM e ignorada pelo TK 90X. 

Linha 20 —►£ ai que se informou ao TK 90X em que linha ♦ da 
tela deve ser feita a impressao. 

Escolhemos a linha de numero 11 que na realidade 
e a 122 linha (veja a Figura 2). 

0 numero que colocamos na caixa de memoria com ,o 
titulo ”linha” e um numero legal para a I'inha 
pois esta no intervalo de 0 ate 21. 
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Tente por conta propria mudar esta instruqao 
dando a variavel "linha" valores proximos de 0 
(zero) ou de 21 para comeqar a ter um bom domrnio 
da tela... 

Linha 30Com o auxilio da instrugao LET "ajusta-se" a posi 
S ao inicial da variavel "coluna" no ponto 0 (ze- 
ro). 

Foi escolhido este valor, para que o seu nome se 
raovimente da esquerda para a direita ocupando to- 
da a tela. 

Linha 40 -*-Uso.u-se INPUT para parar o prograraa enquanto voce 
tecla o seu nome. 

0 TK 90X guarda o seu nome na caixa de memoria 
rotulada com n$. 

Desta forma, toda vez que vope quiser que seja im 
press© o seu nome basta ordenar ao TK 90X para 
executar o comando PRINT n$. 

Linha 50 -*~Ai se indica ao 'TK 90X onde exatamente voce quer 
a impressao do seu nome,'que no caso particular 
tera a sua prime!ra impressao comeqando no "retan 
gulo” definido pelo cruzamento da linha de nume- 
ro 11 com a coluna de numero 0 (zero). 

Desta forma PRINT AT linha, coluna tera inicial- 
mente o significado PRINT AT 11,0. 

Em outras palavras: "imprima (PRINT) na (AT) li¬ 
nha 11 a partir da .coluna 0 M . 

Como o valor da variavel "coluna” ira aumentar 
de uma unidade em cada volta teremos comandos do 
tipo PRINT AT 11,1, PRINT AT 11,2, PRINT AT 11,3 
etc. o que significa imprima na linha 11 a par¬ 
tir da coluna 1, imprima na linha 11 a partir da 
coluna 2, etc. e o seu nome comeqa a se deslocar. 
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Linha 60 —►A instruqao LET coluna = coluna + 1 nao tern muito 
sentido em Algebra, pois e capaz de voce chegar 
a conclusao que 1=0?!?! 

Na realidade nao e nada disto. 

0 TK 90X antende esta instruqao como: "em cada 
volta acrescente ao conteudo da caixa de memoria 
com o rotulo "coluna” uma unidade ou ainda o novo 
valor de "coluna” e o antigo mais uma unidade". 

0 TK 90X ira assim em cada volta efetuando as se- 
guintes somas: coluna e igual a nada (zero) mais 
1 (um) na 1^ volta, um mais um na 23- volta, dois 
tuais um na volta, etc. ate que o programa pa¬ 
re. • 

Voce nao esqueceu que omaior valor da variavel co 
luna e igual a 31, nao e? 

Alias,, se o nome-teste for "Dsergio” introduza 
as .seguintes instruqoes 

55 IF Coluna < 25 THEN GOTO 60 

56 PRINT AT linha, 25; 'GOQOQ^^ 

57 LET coluna = 0 Wsete espaqos em bran 

58 GOTO 50 ---^ 

que o seu programa nao parara jamais a nao ser 
que voce queira isto!?!?!? 

Linha 65—-Esta linha foi acrescentada para diminuir um pou 
co a velocidade com que e impresso o nome. 
Enquanto o TK 90X esta emitindo um som ele nao 
pode mais fazer nada ao mesmo tempo. 

Desta forma tudo'para durante uma fraqao de segun 
do ou alguns segundos enquanto o TK 90X soa um 
"barulhinho”. 

Se o TK 90X esta emitindo um som (SOUND) curto, 
obviamente que o atraso provocado no programa e 




bem pequeno. 

Entretanto se voce mandar fazer um 1 SOOOOM bem 
longo o atraso na execuqao do programa e bem sen- 

sivel. 

Os numeros apos a instrucjao SOUND significam 
SOUND duragao, altura 

onde "duragao" signifies quantos segundos voce 
quer que dure a nota, e "altura” signifies o quao 
alto ou baixa e a nota que voce quer ouvir. 

Caso voce queira uma nota bem curta,' pode teclar 

SOUND.3, coluna 

que signifies: "emits durante 0,3 segundos uma 
• nota com urn valor que voce ira encontrar na caixa 
de memoria com o rotulo coluna * 

Como o valor da variavel "coluna” e aumentado de 
1 unidade em cada volta que o TK 90X atinge a li- 
nha 60, o tom da nota aumenta de uma unidade cada 
vez que for eraitida. 

So para sentir melhor e como uma experiencia ins 
trutiva modifique a linha 65 de tal forma que pos 
sa ter outros valores para o SOUND. 

A duragao pode variar de 0 ate 10. 

A altura (tom) pode ser qualquer numero de -60 

ate +69. 

Fragoes destes numeros tambem sao aceitas pelo 
TK 90X. 

Escreva por exeraplo 

65 SOUND 3.5,29.43 
ou 

< 65 SOUND 5, -18 

I ou ainda 

l 65 SOUND 3, coluna + 3 
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Se voce entende urn pouco de musica, caso o valor 
que voce atribuir a altura for zero tera o "do" 
do meio. 

Portanto qualquer valor negativo (como - 8) sera 
uma dots mais baixa do que o "middle C” em um pia 
no. 

£ claro tambem que se voce escrever algo como 
SOUND 0,15 nao tera muita utilidade pois a nota 
que dura 0 (zero) segundos e um pouco dificil de 
ouvir, nao e? 

Linha 70-^0 GOTO envia o TK 90X de volta a linha de numero 
50 na qual ordena-s.e para imprimir o seu nome ou- 
tra vez, porem agora como o valor da "coluna" f 0 i 
aumentado de 1 (linha 60) a impressao do nome sai 
um espago a direita em relagao a ultima posigao. 
Nao esquega entao que a grande enfase neste capx- 
tulo foi para as instrugoes: 

■Di 2 ao TK 90X para imprimir na li¬ 
nha e coluna especificados apos o 
AT (o AT esta em vermelho na tecla 
"I"). 

Diz ao TK 90X para soar o alto fa- 
lante em uma duragao e altura <(ou 
frequencia) especificadas. 

0 SOUND esta abaixo da tecla Z (em 
vermelho). 



PRINT AT 
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Capftulo 16 

Conectando e cortando STRINGS 



0 TK 90X pode juntar ou melhor concatenar 
duas ou mais cadeias de caracteres para desta forma 
criar frases. 

Desta forma o TK 90X pode "somar" uma STRING 
contendo as letras ’’Ale” com uma outra STRING conr 
tendo tf xandre ,r para formar o nome "Alexandre". 

Pode-se inclusive ter uma STRING que den- 
tro nao tenham nem letras ou qualquer outro tipo de 
caractere, ou seja ter entre aspas um (ou mais) es- 
paqo(s) em branco. 

Alias isto e muito util para que se tenha 
uma certa facilidade na leitura. 


^PROGRAMA 10 ^ 

10 LET A$ = "Alexandre" 

20 LET E$ = "Do grego : Alexandros" 

30 LET S$ = "Significado:” 

40 LET D$ - "defensor da especie" s LET B$ = "D": 
LET T$ - 

50 PRINT "Al vai uma explicagao de um nome impor¬ 
tant^, alias o nome ja foi a alma das pessoas!" 
60 PRINT : PRINT 
10 PRINT A$ + T$ 4- B$ + B$ + E$ 

80 PRINT S$ + B$ + D$ 
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Execute e veja se sai isto: 



< 3 > 


Ai vai uma explieagio de um nome 
importante, alias o nome ja foi 
a alma das pessoas. 

Alexandre - Do grego: Alexandros 
Significado: defensor da especie 


• 

1) Nas linhas 40 e 60 aparecem dois pontos (": Tt )que 
permitem que se obtenha o que se pode chamar de 
linha de instrugoes multiplas ou seja em uma uni 
ca linha logicade programs termos varias instru 
goes * 

2) Nas linhas 70 e 80 foi feita a concatenaqao das 
STRINGS,A$, T$, B$ (espago em branco) E$ (linha 
70) e S$,'B$-e D$ (linha 80), 



£ posslvel extrair uma subSTRING ou modi*" 
ficar uma STRING usando uma nova operaqao que-pode- 
mos chamar de corte (em ingles ’’slicing 11 ) da STRING 
original. 
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Em outras palavras e possivel determiner 
uma subSTRING a partir de uma STRING maior, apli- 
cando a fungao TO (e.por favor nao confunda este TO 
com outras aplicagoes da fungao TO em outros coman 
dos... ) . 

* A forma geral para o corte de uma STRING 
e 



Assim se voce escrever por exemplo 

PRINT " 123456789" (4 TO 7) ( |ENTER|) 

Saira a subSTRING "4567 ou seja comeqando 


no quarto caractere e terminando no 7. 

Por outro lado se voce escrever: 

"Victor” (1 TO 3) ( |ENTER| ) 

sera exibida a.. subSTRING "Vic" que representa os 
tres primeiros caracteres da STRING "Victor". 

0 inicio e o fim de uma STRING sao frequen 
temente utilizadas para formar subSTRINGs pelo cor¬ 
te e caso voce nao tenha especificado o inicio [ex 
pres sao aritmetica (1)J ou o fim [• xpressao aritme- 
tica (2) j o seu TK 90X pode assutnir algumas coisas 
como esta indicado abaixo: 

"12345678" (TO 5) significa "12345678" (1 TO 5> e que da 
"12345" 

"12345678" (3 TO) significa "12345678" (3 TO 8) e que da 
"345678" 

"12345678" (TO) significa "12345678" (1 TO 8) e que da 
"12345678" 
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"12345673" (7) signifies "12345678" (7 TO 7) e que da "7" 

Se voce caro(a) lei tor(leitora) nao perce- 
beu ainda a."funqao corte" da STRING em toda a sua 
amplitude em primeiro lugar "bom dial" ou seja acor 


d e » . . 


Acordou? 

Ai vao mais algunas ilustra$oes: 


10 LET F$ » "Nao se deve inventar" 
20 PRINT _F$ (5 TO) 


Resultado 

- Exibe-se a subSTRING 
"se deve inventar" 


10 LET F$ * "Nao.se deve inventar" 
20 PRINT F$ (6 TO 14) 


Exibe-se a subSTRING 
"e deve in" 


10 LET F$ * "Nao se deve inventar" _ ♦ , VP „ TM . 

Y —*• Exibe-se a subSTRING 

20 PRINT F$ (7 TO) "deve inventar" 

Esta clareando, nao e estimado(a) leitor 
(leitora)? 

Tudo se tornara obvio (acho eu,. .) apos o 
seguinte programs-exemplo« 


PROGRAMA 11 J 

Vamos usar a fungao 'corte para se imprimir 
o nome de urn raes dado o seu numero (isto e para se- 
tembro (Set) voce deve entrar com o numero 9). 

0 resultado exibido sera do tipo 

9 e Set ^ 

Voce ira ouvir urn \ rapido efeito sonoro pa 
ra cada saida apresentada na tela. 


Ai vai o programinha: 
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10 LET n$ - 11 JanFevMarAbrMaiJunJulAgoSetOutNovDez** 
20 INPUT "Entre com o numero do mestU"; mes 
30 PRINT n mesO"? mes; "neD"; n$ (1+3*(mes-1) TO 
3*mes) 

40 FOR j = 69 TO - 60 STEP -1 
50 SOUND .1, j 
60 NEXT J 
70 GOTO 20 

Al gumas explicates sobre o. programs 11 

1) A amplitude numerica para a variavel mes e de 1 
ate 12 (numeros inteiros) para se obter a abre- 
viatura correta para o roes em questao, 

A forma como opera a linha 30 e a seguinte; 
se voce entrar com mes de numero 5 (raai'o) entao 
1+3*(mes-1) = 1 + 3*(5-1) =13 e 3*mes=15 resul- 
tando' dai um corte na STRING entre as posiqoes 
13 e 15 ou seja e exatamente onde esta a abrevia 
tura "Mai" isto e a subSTRING exibida. 

2) £ no Capitulo 17 que voce aprendera como funcio- 
nam as linhas 40 e 60 (FOR-NEXT)* 

Por enquanto nao esquega como funciona o SOUND 
caso tenha esquecido volte ao Capitulo 15. 






Capftulo 17 

Preparando-se agora para (FOR) 
o seu proximo (NEXT) grande truque 

no TK 90X 


Em computa^ao (conto alias em tudo , . . ) exi's- 
te sempra uma forma melhor de se conseguir fazer uma 
cois a. 

Neste capitulo voce ira conhecer uma M hera" 
(do latim hera que significa, "senhora 11 ) instrugao 
que ira capacita-lo(1 a) a mover coisas para baixo e 
para cima ou para esquerda e para direita na tela, 
deslocar as suas naves e as suas armas para qual- 
quer ponto da tela, etc*. 

Estou me referindo a instrugao 

FOR-TO/NEXT 

que talvez seja uma das iaais poderosas do BASIC* 

A instrugao FOR/NEXT e constituida de dois 
comandos: o comando FOR e o comando NEXT. 

A instrugao FOR-TO/NEXT e aparentemente 
complicada porera e de grande importancia para algu- 
mas aplicagoes e de saida voce ira teclar e 'execu- 
tar o program a 12. 



( 


PROGRAMA 12 



10 LET n = 1 

20 PRINT "Eu nao queria ter xara!" 
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30 LET n — n+1 

40 IF n = 14 THEN GOTO 60 

50 GOTO 20 

60 REM *** o programa vai descangar um pouco** 

Ate aqui voce ja conhece tudo e ao execu¬ 
tor o programa 12 como esta escrito voc? vera na te 
la repetido treze vezes a mensagem 

^Eu nao queria ter xara!" ^ 

Vamos executar agora o raesmo programa usan 
do F0R-T0/NEXT. 

0 seu aspecto sera agora: 

10 FOR n = 1 TO 13 

20 PRINT 1T Eu nao queria ter xera!" 

30 NEXT n 

40 REM *** 0 programa vai descansar um pouco" 

Acho que voce ja notou deste pequeno exem- 
plo que o FOR-TO/NEXT lhe economizou, para comegar, 
duas linhas completas do programa. 

Porem ele faz muito mais do que'is to. 

Entenda agora como funciona o programa. 


1) Na linha 10 o TK 90X atribui a variavel n inici- 
almente o valor 1 e passa para a proxima linha. 

2) Na linha 20 o programa encontra a instrugao PRINT 
e imprirae a mensagem "Eu nao queria ter x ira! H . e 
passa para a linha seguinte. 

3) Na linha 30 encontra-se o comando NEXT ("next" 
significa proximo em ingles) que faz com que o 
novo valor de n seja n + 1 comparando o raesmo com 
o valor final que no nosso caso particular e 13. 
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Enquanto este valor de n for raenor ou igual que 
13 o programa volta automaticamente para a linha 
10 . 

Na 1? volta ao se chegar a linha 30 o valor.de n 
ele sai dai com o valor n=2 que e raenor que 13. 
Com isto repete-se o ciclo e a mensagem Tt Eu' nao 
queria ter xara!" e impressa pela 2? vez. 

4) 0 ciclo se repete ate que o valor (final) de n 
se torne 13 quando entao ao chegar na linha 30 
ele se torna 14 e ao voitar para a linha 10 ele 
e maior do que o limite superior especificado fa 
zendo com que o -TK 90X abandone o "LOOP” (lago 
ou malha) prosseguindo o programa na primeira ins 
trugao apos o NEXT. 



1) As vezes, interessa que a cadencia com que uma va 
riavel dentro da instrugao FOR va tomando valo- 
res que vao aumentando com incremento diferente 
da unidade. 

Para esta finalidade existe a sua disposigao a 
instrugao STEP que permite que a variavel seja 
incrementada (auraentada) ou decrementada (dirai 
nuida) a sua vontade. 

Assim se voce escrever: 



20 TO 40 STEP 5 


[NEXT x 

o seu TK 90X entendera que o programa tera neste 
trecho cinco repetigoes, em cada uma delas a va 
riavel x toma os valores 20,25,30,35 e 40 res- 
pectivamente e tudo isto devido a instrugao STEP 
que depois de si tem o incremento 5. 
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Pode-se tambem diminuir o valor de uma variavel 
em cada volta e para tanto basta que o nuraero 
apos o STEP seja negativo. 

Assim se voce escrever: 

{ FOR x = 100 TO 50 STEP -10 

NEXT x 

o seu TK 90X entendera que o programa tera neste 
trecho seis repetigoes, em cada uma delas •a va~ 
riavel x tomara os valores 100,90,80,70,60,50 
respectivaraente e como se. pode perceber em cada 
volta a variavel tem'o seu valor diminuido (de- 
crementado) de 10 ate atingir o valor limite 50. 

2) Dentro de uma malha FOR-TO/NEXT pode-se embutir 
ou aninhar um ou mais "loops" FOR-TO/NEXT com a 
condigao fundamental que os mesmos tiao se cruzem 
(veja a Figura 4). 



Figura 4 - Sao dadas todas as voltas em m para se dar uma vol 
ta seguinte em EH e depois que se dao todas as voltas com¬ 
pletes em (U se da uma nova volta era a- 
E assim seguira ate que tudo seja completado..- 


113 


3) Bern, agora da para entender as linhas 40, 50 e 60 
do programa 11- 

A variavel j tem valor inicial 69 e vai diminuin 
do em cada volta este valor de 1 ate atingir o 
valor -60. 

Cora isto cada vez que se passa pela linha 50 ge- 
ra-se som atraves do alto falante do seu televi¬ 
sor e isto devido a instrugao 50 SOUND .l,j onde 
0.1 da a duragao da emissao do som (em segundos) 
e j e a frequencia da nota.. 

—--v 

PROGRAMA 13 J 

Neste programa no qual se usam dois"loops" 
um aninhado dentro do outro vao ser calculados os 
70 primeiros numeros primos de 2 em diante. 

Como a logica do mesmo e um pouco complexa 
desenhamos ao lado dos numeros de,linha os possi- 
veis desvios do fluxo do programa. 

Acho que com isto, como a explicagao dada 
ha pouco e a que surgira apos o 139 programa voce 
atencioso(a) leitor(a) deglutira mais um*.♦ 



10 LET p - 1 /Com esta 

20 FOR v—1 TO 10 ><( \ a ~ Se 

s' V de um nut 

30 LET p = p+2 n _ 

40 FOR f=3 TO SQR p STEP 2 

50 IF p=f *INT (p/f) THEN GOTO 30 

60 NEXT f 

70 PRINT TAB 8*v; p; 

80 NEXT.v 


Com esta fungao calctr 
la-se a raiz quadrada 
de um numero j 
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ExylicaQao complementer 

0 "loop" principal do programa e o que vai 
das linhas 20 ate 80 e conta apenas o numero de pri 
mos que devem ser encontrados sendo controlado pela 
variavel contadora "v". 

Den'tro do "loop" interno, a variavel "p” e 
o numero que esta sendo tfestado para verificar se e 
primo (voce sabe oque significa urn numero primo?). 

Comegou-se com um valor impar (3) e incre- 
mentou-se o mesmo era cada volta de dois (2) para 
evitar no programa o teste de numeros pares que ob- 
viamente nao sao primes, 

Para testar e saber se £ e primo necessi- 
tou-se do "loop" de 40 a 60 no qual se verifica se 
qualquer numero inteiro no intervalo entre 3 e a 
raiz qua dr ad a de p e um fator de p^. 

Se isto ocorrer, p -nao e primo e o progra¬ 
ma salta (na realidade volta) para a linha 30 para 
se ter o proximo valor - de p_ que deve ser testado, o 
qual vem aumentado de 2 em relagao ao ultimo. 

Note que o BASIC do TK 90X permite que se 
possa sair de uraa malha FOR-TO/NEXT sem ter termi- 
nado o mesmo* 

Isto e as vezes bem dificil, para nao di- 
zer impossivel em algumas versoes de 1 BASIC usadas 
por certas maquinas*.. 

Caso nao sejam encontrados fatores entao p 
e primo e o seu valor e impresso na linha 70. 

Vale a pena neste momento falar um pouco 
sobre a instruqao TAB * 

Ela permite ao seu TK 90X iniciar a impres 
sao era qualquer posigao de uraa dada linha. 


Em geral 


TAB n 


desloca a posigao de im- 


pressao para a frente ao longo da linha e a partir 
da coluna n. 

As colunas (como voce sabe) sao numeradas 
de 0 ate 31 e isto da esquerda para a direita. 

Caso a posigao de impres sao passe a coluna 
de numero 31, por exemplo tendo-se um TAB 43) isto 
significa que n passa da If- linha para a segunda e 
contam-se as restantes posigoes para comegar a im- 
p res ao. 

Neste caso particular, p.ara TAB 43 se come 
garia a impressao na 2£ linha a partir da coluna 11. 

Para sentir melhor o que ocorre tecle . e 
execute o seguinte mini-programinha. 


( 


PROGRAMA 14 



10 

PRINT 

TAB 

0; 

"ALE"; 

20 PRINT 

TAB 

32; 

"ALE”; 

30 

PRINT 

TAB 

43; 

"ALE"; 

40 

PRINT 

TAB 

75; 

"ALE”; 

50 PRINT 

TAB 192; 

"ALE"; 


Conelusao 

No caso de que se tenha urn valor maior que 
o permitido os dados se deslocam para a linha se¬ 
guinte sendo o referencial a ultima linha ocupada, 

Ao executar voce deve ter a saida indicada 
na Figura 5. 
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Figura 5 


Conelusa^ 

Portanto o FOR-TO/NEXT diz ao TK 90X para 
executar o "loop” (la 9 o) entre o FOR e o NEXT usan- 
do valores especificados. 


Note que o FOR esta na 

tecla F , 

o 

NEXT 

esta na tecla N , o STEP esta na 

tecla D 

e o 

TO 


esta tambera na [tecla F] e em vermelho. 

Va agora ao Capftulo 2 3. e tecle os progra 
mas. 5 e 6 para dominar mais ainda o FOR-TO/NEXT. 

Convem fazer isto antes de passar ao Capi¬ 



tulo 18. 


Capftulo 18 

Movendo-se na tela com o auxflio 
do FOR-TO/NEXT 


Agora que voce ja sabe como se trabalha com 
os "loops" FOR-TO/NEXT vamos tentar com o auxflio 
dos mesmos mover o seu nome na tela para logo de- 
pois chegar ao seu primeiro joguinho real. 

Nao e o que voce esta esperando? 

Wonderfuuuuul!!I 

Para inicio de conversa nao esque^a que um 
ciclo ("loop") sem corpo e um ciclo de atraso. 

Mas ele pode, mesmo assira ser util tornan- 
do a execuqao de um programa mais lento. 

£ o caso de: 

10 

4 

100 PRINT "Inicio" 

110 FOR Z = 1 TO 999 
120 NEXT Z 

P 

200‘ PRINT "Fim" 

onde com as linhas 110 ate 120 provoca-se uma pausa . 

No programa 9, quando se mostrou entre ou- 
tras coisas como se podia deslocar o seu nome no 
TK r 0X teve que se acrescentar um espa^o em brancn 
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antes do nome. 

Foi urn truque "original”, sem duvida ne- 

nhuma... 

0 movimento foi da esquerda para a direita 
e agora se quiser ir no outro sentido um espago em 
branco deyera ser acrescentado apos o norae, caso 
contrario voce tera uma linha de letras indeseja- 
veis . 

Vamos repetir o pvograma 9 usando agora o 
FOR-TD/NEXT. 

Tecle entao: 

10 REM * Fazendo o seu nome andar da direita para 
a esquerda* 

20 INPUT "Qual e c seu primeiro nome?"; n$ 

30 LET n$ = n$ + 

Neste ponto voce pode usar o laqo FOR-TO/ 
NEXT para contar do fim para o comedo: 

40 FOR c ~ 22 TO 0 STEP -1 

Voce lembra que para contar do fim para o 
comeqo e preciso colocar inicialmente o numero maior 
(22 neste caso) e depois o numero menor (neste caso 
o 0) apos a ins trugao TO. 

Depois disto voce precisa ainda dizer ao 
TK 90X em quantos passos ou etapas deseja que seja 
feita a passagera do numero maior para o menor. 

Como agora e do fim (do maior) para o come 
90 (para o mepor) o passo tera um valor negativo e 
o escolhido foi - 1 . 

Pode tambem informar ao TK 90X onde vore 
quer imprimir o seu nome. 


Digamos na linha de numero 7 ou seja na oi 
tava linha e a partir da coluna c (o valor inicial 
de c e 22 e supoe-se que o seu primeiro nome nao 
tern mais que 10 caracteres). 

Acrescente a instrugao 

50 PRINT AT 7,c; n$ 

Nao e nada ruim ter um pouco de som para 
tornar o programa um pouco mais vagaroso e e por 
isto que se tem a linha 60. 

60 SOUND . 5 , c : SOUND .125, c ; 

SOUND* . 016 , c 

Voce esta apto a fechar o ciclo("loop")com 

a linha: 

70 NEXT c 

Voce tem alguma ideia porque usou-se a va- 
ri.avel de controle "c" do "loop" tanto' na linha 50 
como na linha 60? 

Resp.: Em primeiro lugar se nos tivessemos 
o numero de linha i e o mesmo fosse importante se- 
ria us ado ... 

0 que temos e precisamos, e variar a colu- 
na (c) e por isto aproveitamos esta variavel como 
controladora para o "loop", para a coluna no- PRINT 
AT. e ainda para a frequencia dentro do SOUND apli 
cando a lei do minimo esforqo e maxima u t i 1 i dade... 

Resta agora fazer o nome voltar da esquer¬ 
da para a direita e ficar assira num "zig-zag" eter- 
no . . . 

Para tanto acrescente as seguintes linhas 
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80 LET n$ = + n$ 

90 FOR c - 0 TO 22 
100 PRINT AT 7 , c; n$ 


105 SOUND .5, c : SOUND .125, c:SOUND ,016,c 

110 NEXT c ' /r. -—- >. 

f Um ciclo sem coroa 1 

120 FOR Z=1 TO 999 : NEXT Z —'•"'f ou seja uma peque- 

130 CLS ^_\na pau S a 

i/rt Se voce quiser comecar com outro 

140 GOTO 30 l ^ r * 

Vnome faqa aqui GOTO 20 


140 GOTO 30 


Caso queira interromper este programa nao 
use SYMBOL SHIFT e A pois nao ira funcionar es¬ 
te "breque". 

Aqui voce deve usar CAPS SHIFT e SPACE 
para interromper o "loop 11 . 


Vamos ver agora como se pode mexer para c i 
raa e para baixo. 

Antes de mais nada lembre que voce e um(a) 
"personagem 11 que nao vive so o presente e pensa mui 
to no future pois desta forma, sem duvida, sera re- 
compensado(a) por sua diversidade e principalmente 
pela originalidade em algumas atitudes, 

Deixando a filosofia de lado, se voce qui¬ 
ser mover uma palavra ou uma mensagem para cima ou 
para baixo na tela da T.V. precisa imprimir uma li- 
nha de espaqos em branco em cima da palavra ou da 
mensagem "antiga" para apaga-la antes que a mesma 
seja impressa em uma nova posiqao. 

No seu TK 90X o conjunto de muitos espaqos 
em branco ou seja um grande vazio vale muito e e 
bem diferente do nada ou seja onde nao ha vazio ne 
nhum. . . 

Nomes as vezes podem ser muito estranhos e 
o deputado federal Aureo de Melo e o autor do proje 
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to de lei (1965) que quer proibir o registro de no¬ 
mes ridiculos, humilhantes, espalhafatosos, eroti- 
cos ou proibidos. 

Segundo o projeto, quem tentar registrar 
um(a) filho(a) com os nomes proibidos tera que pa- 
gar multa e nao sera apenas o pai masu tambem o es- 
crivao que fizer o registro e o juiz que aprovar o 
dito nome. 

Bptre a1 guns dos nomes estranhos, que ser- 
virao de amostra para o programa 15, analise estes: 

Amim Araon Amado 
Nascente Nascido Puro 

Lanqa Perfume Rodometalico de Andrade 
Um Doi.s Tres’de Oliveira Quatro 
Jose Casou de Calqas Curtas 
Rolando Emidio da Torre da Igreja etc. 


10 REM***£azendo o nome. subir*** 

20 INPUT "Entre com o nomeO";n$ 

30 FOR L=21 TO 0 STEP -1 
40 PRINT AT L,7; n$ 

50 SOUND . 2,L:’ SOUND .1,L 

60 print at l,7; ' “nDODQOnDOOOOOOQ " 

70 NEXT L 

80 FOR Z=1 TO 199 : NEXT Z 
85 REM***fazendo o nome descer*** 

90 FOR L=1 TO 21 
100 PRINT AT L,7; n$ 

110 SOUND .2,L: SOUND .1,L : SOUND’.125,L 
115 PRINT. AT L,7 ; " 

120 NEXT L 

130 FOR Z=1 TO 199 : NEXT Z 
140 GOTO 20 
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Execute e compreenda o movimento na verti 
cal paraestar preparado para o seu primeiro jogo 
(alias o que tem de jogo no livro dos meus filhos 
Sergio e Victor nao e brincadeira xara.,.). 

0 cuidado que voce deve tomar neste progra 
ma ao entrar com o nome (n$) e ver se ele nao tem 
mais do que 15 caracteres quando entao deve-se au- 
mentar os espaqos em branco da linha 60. 



ra de voce comeqar a se capacitar totalmente para 
poder escrever os seus proprios programas de jogos. 

Mais algumas instrugoes e voce estara "ma- 
duro M (a) para este fim... 



10 rem* * * ARMA* ** 

20 INPUT "Entre com uma palavra comprida";p$ 

30 PRINT AT 0,12; p$ ' 7 — 

y 9 /por exemplo 

40 LET arma =16 f Guaratingueta 

50 PRINT AT 21, arma? - 

60 PAUSE 0 
10 LET m$ = INKEY$ 
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80 IF m$ = "5” THEN LET arma=arma -1 : GOTO 80 
90 IF m$ = "8" THEN LET arma=arma +1 : GOTO 50 
100 IF m$ < > "0 11 : THEN GOTO 50 
110 FOR L = 20 to 0 STEP -2 
120 PRINT AT .L, arma+1; "1" 

130 SOUND ..05,L 

140 PRINT AT L, arma +1; "P” 

150 NEXT L 
160-.GOTO 60 


Ante’s de executar este programa veja se vo 
ce bateu dois pontos ": 11 e nao ponto e virgula”; "no 
final das linhas 80 e 90. 

Como ja comentei anteriormente o uso de 
dois pontos Ihe permite incluir mais do que uma 

instrugao na mesma linha. 

Voce ganha um abrago (ou um beijo, isto 

depende do sexo.'* . ) se responder porque houve neces 
sidade de colocar mais que uma instrugao nestas duas 
linhas I 


Apareceram duas instrugoes novas no progra 


ma 16. 


A primeira e- PAUSE que e uma palavra-cha 
ve que esta na tecla M. 

A forma geral desta instrugao e PAUSE t 
onde t e tempo em de segundo que voce quer que 
o TK 90X espere. 

Entao como o proprio nome diz a instrugao 
PAUSE gera uma parada ou pausa determinada pelo va¬ 


lor do argument©. 

PAUSE 0 equivale a um tempo indefinido de 
espera e so pode ser interrompido pelo acionamento 
de alguma tecla (com excegao da SHIFT). 
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A instrugao INKEY$ ou como alguns costumam 
chamar a. variavel XNKEY$ ou ainda a funqao INKEY$ 
faz com que seja executada a leitura do teclado ob- 
tendo uma STRING com urn unico caractere como resul- 
tado. 

Se o teclado nao foi acionado ter-se-a co¬ 
mo resultado uma STRING . totalmente vazia ou sej a 
sem nenhum espaqo em branco. 

A futi^ao INKEY$ opera de forma um pouco se 
melhante a instru^ao INPUT com uma diferen^a funda¬ 
mental que ela entra’-em aqao assim que a primeira 
tecla 'for pressionada ./e nao necessita que se aperte 

ENTER oara que Isto ocorra. 

_ % 

Qualqu-er infprmaqao indo para o TK 90X u- 
sando-se INKEY$ e tratada como uma’ STRING, indepen- 
dente do fato da tecla pressionada ser de uma letra 
ou de ura numero* 

Desta forma, e precise que ela seja armaze 
nada na caixa de memoria do tipo STRING, representa 
da com apenas uma letra seguida do sinal $. 

Execute .agora o programa e distraia-se com 


o mesmo. 


— I—I 

Use a tecla 5 para mover a sua arma | 11 

—a 

para a esq’uerda e .a tecla 8 [ para mover a arma pa¬ 


ra a direita e a tecla [_0j para diSparar.o missil. 

Se voce olhar para a linha .80 vai perceber 
logo que toda vez que a tecla )5 | e apertada, o nu- 
mero na caixa.de memoria com o rotulo "arma" tera 
subtraido de si a quantidade 1. 

Como o'seu’valor inlcial e 16 cada vez que 
se aperta a tecla[T] ter-se-a: 


arma 


arma 


1 
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e assim na primeira vez, "arma 11 tera valor 15 e se 
voce continuar apertando a tecla m a variavel "ar 
ma" podera tomar os valores 14 , 13,12 , 11 , , . . 0 . 

Caso voce continuar apertando o valor atri 
buido sera -1, -2, -3, etc, e que estao todos fora 


da tela !I ?! I 

Nao faqa isto pois entre outras coisas nao 
ha em que atirar,.. 

0 mesmo pode ocorrer se voce apertar muito 
a tecla 8 so que nesse caso a variavel "arma" a 
cada pressionada da tecla S e aumentada de uma u- 
nidade porem voce nao deve .ter para "arma" valor 
maior que 31 pois neste caso estara fora da tela, a 
direita da mesma. 

Para evitar que isto aconteqa, voce deve 
■fazer um teste para ver se a sua arma nao esta no 
fim da linha, 

Em outras palavras, voce so quer mover a 
arma se (IF) a tecla 8 for pressionada e (AND) a ar 
ma nao esta no fim (extrema direita). 

Dessa forma usando o simbolo vermelho AND 
na tecla Y mode a linha 80 para 

80 IF m$ “ "5" AND arma > 0 THEN LET arma=arma -1 
: GOTO 50 


Com esta instruqao a arma move-se somente 
se ambos m$ = 11 5" e (AND) a posiqao da arma e maior 
do que 0. 

0 mesmo deve ser feito para a linha 90. 

Neste instante voce tera que escolher um 
numero para o seu limite com muito cuidado, pois vo 
ee precisa levar em conta o comprimento da "coisa" 
que esta imprimindo. 
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Uma forma de estar seguro e nao ultrapas- 
sar a coluna 31 e como a arma foi construida com 


tres caracteres 


□ t □ 


espaqo 
em branco 


seta 


'espaqo em branco 


o limite tnaximo passa a ser a coluna 29 que nao de- 
ve portanto ser ultrapassada . 

A linha 90 deve ser: 

•90 IF m$ “ "8” AND arma <29 THEN LET arma = artna+1 
GOTO 50 

Agora voce pode executar (RUN) o programa 
e treinar a sua pontaria . 

£ claro que o programa esta muito es tatico, 

Cabe a voce inteligente leitor(a) juntar o 
que foi ensinado no programa 9 ou seja como fazer o 
nome se mover da esquerda para direita e vice-versa 
que ai entao o dinamismo fara com que voce erre al- 
guns tiros e o jogo se tornara mais interessante♦.. 

Voce pode tambem no lugar de uma palavra 
construir uma STRING com caracteres n<11 , > = 

dando assim urn aspecto de uma nave espacial. 

Isto tambem melhorara as coisas. 

Maos a obra o(a) original e voc* M 

NOVAS INSTRUCOLS (Resumo) 


Pause t 


Diz ao TK 90X para esperar durante 
um tempo fixo ou ate que uma tecla 
seja pressionr.da (aquela que lhe pa 


INKEY $ 


recer mais simpatica, menos a SHIFT.,,) 

0 numero que segue PAUSE especifica 
1 . 


quantos 


do segundo deve-se espe¬ 


rar. PAUSE esta na tecla M . 

Diz ao TK 90 X para tomar a proxima 
tecla pressionada como uma entrada 
STRING e nao esnerar pelo ENTER. Es¬ 
ta acima da tecla N| . 


£ usada junto com o IF-THEN para fa¬ 
zer com que o TK 90X so faqa alguma 
coisa somente se ambas as instruqoes 
forem verdadeiras. Esta na tecla Y 
AND e um operador logico. 
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Caprtulo 19 

Usando caracteres graficos que 
permitam simular uma explosao 




Vamos transformar aquela palavra (ou pala- 
vrao) que voce mandou no programa 16 em uma "carica 
tura 1 ' parecida com um aviao. 

Para isto precisareiuos do modo grafico. 
Note que acima da tecla 9 esta a palavra 
GRAPHICS impressa em branco. 

f..„ I 

en- 


Mantenha abaixada a tecla 


quanto aperta a 


tecla 9 


CAPS SHIFT 


c an t e 


'Voce notou que o cursor mudou para um pis- 


t t » 9 t t 
♦ # ■ ♦ # 


Notou, mes m o. 

£ isto que Ihe indicara no TK 9#X que voce 
esta no modo grafico* 

Em cada tecla de 1 ate 8 existe um pequeno 
simbilo branco como o que esta indicado na Figura 6* 


■~i m i—i ■ n m i mm 

SadiranraasM 


Figura 6 
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Aperte a tecla 1 e observe o pequeno qua 
drado que aparece. 

Agora aperte CAPS SHIFT e [ 1j juntas . 

Desta vez, o pequeno quadrado nao e impres 
so, porem o resto do caractere e. 

Caso o TK 90X tenha urn cursor piscante a. 
entao ao se apertar uma tecla numerica ter-se-a, na 
cor do INK, o quadrado grafico mostrado na cor escu 
ra naquela tecla. 

Porem se voce mantiver CAPS SHIFT abalxa 
da, enquanto aperta uma tecla numerica, o TK 90 X im 
primira na cor da instrupao INK, a\uilo que esta im 
presso em branco naquela tecla. 

Brinque um pouco com as teslas no modo gra 
fico (GRAPHICS) ate que voce esteja r: eguro(a) de 
que ja compreendeu o que esta acontecendo. 


Enquanto estiver no tnodo l±J. - 0 ainda a- 
paga (DELETE) e a tecla 9 faz voltar ao cursor nor-’ 
mal ou seja desativar o modo grafico. 



Realmente agora as coisas vao ficar um pou 
co mais emocionantes pois voce vera um aviao se mo- 
vimentando na horizontal e podera tentar destrui- 


lo simulando inclusive uma explosao. '' 

Neste programa a funpao INKEY$ tera um de- 
sempenho muito importante e a parte inais dificil da 
logica esta indicada no fluxograma da Figura 7. 
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Figura 7 - As linhas '60 a 100 

fazem o aviao andar... 


Ai vai o programa: 


10 REM ** Explodindo um aviao ** 

20 LET a$ ----- 

20 LET aviao = 0 . cmcteres si ° 

( obtidos com 

40 LET arma =16 \ 

\ SPACE + CAPS SHIFT 1 -*> 

■50 PRINT AT 21,arma? 

■60 PRINT AT 2, aviao; a$ / CAPS SHIFT 3 *" 

65 LET = INKEY$ -__- 

10 SOUND .1, -20 
60 LET aviao = aviao +1 
90 IF aviao >26 THEN PRINT AT 2,27? 

LET aviao = 0 

■100 IF m$ = ""THEN GOTO 60 

110 IF m$ = "5" THEN LET arma=arma -1 : GOTO 50 
120 IF m$ = "8" THEN LET arma=arma +1 : GOTO 50 
130 IF m$ < >"0" THEN GOTO 50 
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140 FOR L = 20 TO 0 STEP -2 
150 PRINT AT 2, aviao; a$ 

155 IV SCREEN? ( L, arma +1) < >"□" THEN GOTO 220 
160 PRINT AT L, arma +1; "1” 

170 SOUND .05,L : SOUND .05,-10 
1S0 LET aviao = aviao +1 

190 IF aviao > 26 THEN PRINT AT 2, 27 ; "□□□□ " : 

LET aviao = 0 

200 PRINT AT L, arma +1; " 

210 NEXT L 
215 GOTO 270 


220' REM**aqui indica-se a explosao** 


230 PRINT AT 2, aviao; FLASH1; ■aBBifi" 


240 FOR Z=1 TO 20 

250 SOUND .01, RND*(-20) 

260 NEXT Z 

270 CLS 

280 GOTO 20 

Agora, execute o p 



tar no aviao. 


Expliaa goes adicionais 

1) Voce ja notou, que no lugar da PAUSE 
que tinha na linha 60 no programa 16 foi colocada 

uma instrugao PRINT AT t nao e? 

0 fato e que uma pausa (PAUSE) e muito boa 

quando nao ha nada acontecendo enquanto o TK 90X 

esta esperando por voce. 

Porem se voce quiser que o aviao se mova, 

deve ser uu metodo uni pouco diferente. 

Uma forma de obter isto e colocando a fun- 

gao INKEY$ era um lago. 
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Es t e . " 1 oop ,r sera capaz de fazer duas ou tres 
coisas em um espago de tempo muito curto e pode tarn 
bem agir como uma parada ate que uma tecla seja pres 
sionada. 

A maneira mais simples de entender o' que 
INKEY$ provoca e voltando a Figura 5 e acorapanhando 
o programa.- 

•£ na linha 60 que comega este " 1 oop 1T ( n Im- 
primir o aviao"). 

Neste lago utiliza-se INKEY$ para testar 
se uma tecla foi pressionada. 

Caso nao tenha sido pressionada nenhuma te 
cla ouv$-se o ruido do aviao e o mesmo vai se des- 
locando. 

Mas como e que o TK 9j^X sabe se voce aper- 
tou alguma coisa? 

Resp.: INKEY$ da uma STRING vazia se ne¬ 
nhuma tecla foi pressionada. 


Uma STRING "nada” e formada apenas de dois 
conjuntos de aspas, um imediatamente apos o outro 
SEM NENHUM ESPAQO EM BRANCO NO MEIQ ou seja: 


Sao as linhas 80 e 90 que fazem o aviao se 


deslocar. 


2) Quando voce executar (RUN) o programa 
voce vera o aviao se deslocando da esquerda para a 
direita (no ceu...) ate que voce aperte a tecla 0. 

Ao se pressionar esta tecla (0) saltar-se- 
a fora do lago que vai das linhas 50 ate 130 e en- 
tra-se no "loop" do FOR-TO/NEXT que faz com que se 
desloque o. missil. 
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Entretanto, nao e interessante que o aviao 
fique M paralisado" enquanto o seu projetil se deslo- 
ca para destrui-lo. 

£ por isto que existem as linhas 180 e 190 
que fazem com que o aviao se movimente, fugindo ou 
pelo menos nao esperando a destruiqao estatieo. 

3) Vamos agora a explosao... 

Xudo que voce deve fazer para isto e per- 
guntar ao TK 90X para que o mesmo verifique se onde 
ele imprime a posigao do projetil ha algo diferente 
de espaqo em branco. 

Caso haja, so pode ser uma parte do aviao 
e nestas condigoes deve-se desviar o programa para 
aquelas linhas que provocam a explosao (220 a 260 ). 

A instrugao que permite verificar se voce 
acertou no aviao e SCREEN$ , a qual esta numa pa- 
lavra vermelha abaixo da tec 1 a K . 

A instrugao SCREENS utiliza os mesmos nume 
ros de I'inha e coluna que sao usados na instrugao 
PRINT AT, porem eles devem aparecer entre parente - 
se$. 

A ins truqao SCREEN$ diz ao TK 90X que tipo 
de caractere ele identifica em alguma posigao da 
tela ou seja na posigao da linha e coluna indica- 
das entre parenteses. 

Caso nao haja nada, ela diz ao TK 90X que 
ai esta urn espago em branco, que alias e o que exis 
te na maior parte da tela... 

Se por outro lado algo for detectado, sera 
duvida e o aviao. 

Esta e a razao da existencia da instrugao 
de nuraero de linha 155 que nos permite desviar o 
programa par.a a linha 220 onde esta a rotina para a 
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explosao (linhas 220 ate 260). 

Para se obter os sxmbolos graficos voce de 
ve entrar no modo grafico e ai entao apertar as se- 
guintes teclas. 


3 E Hi G 


tecla 7 


tecla 7 


CAPS SHIFT +1 


CAPS SHIFT +1 


Figure 8 

Acho que voce querera jogar mais que uma 
vez e e por isto que limpei a tela (linha 270 )e man 
dei comegar tudo de novo. 

Caso voce queira um panorama mais colorido 
acrescente ao seu programa a linha,15. 



15 BORDER 3 : INK 0 : PAPER 5 




Uma versao bem mais sofisticada deste pro- 
grama aparece no livro dos meus filhos Sergio e Vic 
tor "Jogos e Desenhos no TK 90X n - vol. 1 . 


4) 0 FLA.SH que aparece na linha 230 e um ar 
tificio utilizado para realgar um caractere, um con 
j unto de caract eres ou toda a te la sendo que 





W 
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As novas ' instrupoe s ou comandos neste cayitulo 


or am 


GRAPHICS 


FLASH 


Diz ao TK 90X para entrar ou sair do 
modo grafico e e obtido com o 
CAPS SHIFT +9 

Diz ao TK 90X para cintilar (FLASH) o 
item impresso a mesma taxa que a do 
cursor. 

0 FLASH esta abaixo da tecla V 


SCREENS 


Pergunta ao TK 9-0 X o que existe na te 
la em uraa posigao especificada. 

Esta abaixo da |tecla K| . 

Va agora ao Capxtulo 23 e tecle o pro 

grama 7. 



Capftulo 20 

Desenhando com linhas bem finas 


A " forma plana" que foi desenhada no pro- 
grama 17 era constituida de "blocos" bastante gran- 
des e nao parecia muito com um aviao real. 

Desenhar figuras com os caracteres grafi- 
cos e mais ou menos a mesma coisa que desenhar algo 
com lapis de desenho (“crayon") nao apontado e bem 
grosso... 

Para que as suas representagoes graficas 
se tornem mais realistas voce necessita de um lapis 
bem mais "fino" e com uma ponta bem apontada. 

£ agora que vou lhe ensinar como o TK 90X 
desenha figuras no modo de : alta resolugao ou seja 
com contornos representados por linhas bem delga- 
das . 

0 TK 90X e realmente "fora de serie" visto 
que com ele pode-se facilmente misturar grdf'ioos de 
alta resolugao com o texto (letras, numeros e ou- 
tros caracteres nao graficos). 

As instrugoes de alta resolugao para o TK 
90X subdividem a tela em pontos ou pixels* 

Imagine que cada caractere grafico ante¬ 
rior seja subdividido em "quadradinhos" menores co¬ 
mo ocorre em um tabuleiro de xadrez ou seja cada 
quadradinho tem tamanho do caractere grafico. 
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Para comegar note que na tecla qJ tem-se 
em branco a palavra-chave PLOT. 

Esta instrugao inforraa ao-TK 90X para co- 
locar um ponto em urn lugar especificado da tela. 

Para se especificar este ponto apos a ins¬ 
trugao PLOT voce deve indicar a abscissa (x) e a or 
denada (y) conforme se mostra na Figura 9. 


0,175 255.175 



Figura 9 


Portanto a instrugao PLOT x,y diz ao TK 9^)X 
para preencher o pixel em x,y (voce sabe, que cos- 
tuma-se chamar a estes numeros de coordenadas' do 


ponto...). 

Tec 1 e PLOT 0,0 ( lENTEPp 

Voce consegue ver um pequeno ponto no can¬ 
to baixo da esq^erda? 

Uuuo tiraoI I I 


Tec 1 e agora PLOT 127,87 flENTER] ) 

Voce tern agora um pequeno ponto no centro 


da tela. 
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Ao contrario dos numeros de linha e coluna 
para as instrugoes PRINT AT e SCREEN$, que foram 
usadas em capitulos anteriores, as coordenadas da 
PLOT nao tern a origem (0,0) no canto alto da es- 
querda. 

Os numeros da tela no iftodo grafico de alta 
resolugao comegam no canto baixo da esquerda, alias 
como voce esperto(a) leitor(a) ja percebeu... 

Os numeros na horizontal podem ir de 0 ate 

255 . 

(valores de x = abscissa) e os na vertical 
de ^ ate 175, 

(valores de y - ordenada). 

Voce vera a partir de agora a grande dife- 


renga. 



Este programa vai lhe permitir desenhar 
coisas na tela da sua T.V. 

Muito mais do que isto, para que voce nao 
se sinta perdido(a), o TK.90X lhe mostrara sempre 
um pixel ointilando . 

Use as teclas com- as setas '(5,6,7 e 8) pa¬ 
ra mover o cursor. 

A medida que ele se desloca deixara um ras 
tro, que pode ser um lindo desenho... 

10 REM*** rascunho de um desenho*** 

20 BORDER 6 : CLS 
30 LET x = 127 : LET y = 87 
40 PLOT INVERSE 1 ; x,y 
50 LET m$ = INKEY$ 
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60 PLOT INVERSE 0; x,y 

70 PRINT AT 5,10; "x=Q”; x; "Oy = "; y; 

80 IF m$ = ""THEN GOTO 40 

90 IF m$ = "5” AND x > 0 THEN LET x = x - 1 

100 IF m$ = ”8" AND x < 255 THEN LET x = x + 1 

110 IF m$ = "7" AND y < 175 THEN LET y = Y + 1 

120 IF m$ — "6" AND y > 0 THEN LET y = y - 1 

130 SOUND -25.0:SOUND. 25,2:SOUND.025,5: SOUND.25,7 

40 \ | Li £; t sr o;I ° 

Execute este programs e ache o seu rumo o 
mais bi^eve possivel na tela.*. 

0 . 1 . } 

1) A instrugao PLOT INVERSE 1; x,y diz ao 
TK 90X para inverter a cor dos caracteres com a cor. 
do fundo quando o codigo apos a INVERSE el. 

Se depois do INVERSE aparecer o codigo0de 

sativa-se a inversao. 


2) Se voce quiser que os seus pontos te- 
nham cor, pode usar uma instrugao do tipo: 


PLOT INK codigo da cor; x,y. 

\ „ 

este valor pode 

ser de 0 a 7 


Experimente no lugar da linha 60 



PLOT INK 1; x,y 


e voce tera os pontos 
era azul 


Mude depois a linha 60 para 


PLOT INK 2; x,y 


e voce tera os pontos 
era vermelho. 
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0 seu TK 90X aceita entretanto outras ins- 
truqoes para desenhar e entre elas uraa rauito impor- 
tante e a DRAW (palavra chave branca na letra W) . 

A forma geral deste comando e 

DRAW x,y 

e que manda o seu TK 90X desenhar (DRAW) uma reta. 

A reta vai.do ultimo pixel "plotado" ate a 
proxima posigao na tela estabelecida por x,y. 

Tente o seguinte 




Figura 10 

Note que depois da instru^ao C L S , a reta 
comegara no (0,0) e ira ate o outro extremo (na dia 
gonal) ou seja ate o ponto (255,175). 
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Para se desenhar uma linha reta para 
da tela basta colocar urn sinal de raenos 
frente do numero. 

Assim por exemplo, para desenhar uma 
para baixo e para a esquerda basta escrever 



Note que se voce escrever DRAW -20,20 isto 


faz com que o cursor grafic’o fique 20 unidades para 
a esquerda e 20 unidades para cima. 

Na situagao mais comum, se ambos os nume- 
ros apos o DRAW sao positives isto quer dizer que o 
x da os pixeis para a direita e o y os pixels para 
cima, a partir do ultimo ponto referenciado. 

Isto pode parecer urn pouco complicado, po- 

rein nao o e! ! ! 

Assim que voce perceber uma vez como se p 
de desenhar uma figura com a instrugao'DRAW tudo f 
cara claro e uma boa maneira para se chegar a este 
fim e mudar o ponto inicial. 

Para tanto, tecle e execute o programa 19. 




10 REM *** desenho de urn triangulo *** 

20 INPUT "Entre com x = G"?x, ‘‘ En tre com y=D ”;y 

30 PLOT x,y -fc */voce nao esqueceu que estes 

40 DRAW 30,0 / numeros sao obrigatoriamente J 

^ ^oositivos 

50 DRAW 0,30 \ 1 

w ^ „ \ 0 ^ x ^ 255 ''sT 

60 DRAW -30,-30 'V 0<y«175 ) 

70 GOTO 20 


I H* JO 
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comumente es- 
peraria encontrar um ponto e virgula ou seja 
na linha 20. 

Esta virgula diz ao TK 90X para imprimir 
a "proxima coisa” na metade da tela. 

Ao executar (RUN) o programa 19 ele Ihe per 
guntara inicialmente pela abscissa (x) e depois pe- 
la ordenada (y). 

Ele desenhara o pixel e entao aplicara a 
instrugao DRAW para desenhar um triangulo a partir 
deste ponto desenhado pela PLOT. 


0.1. Note a virgula onde voce 


Caso as coordenadas do seu ponto estejam 
muito proximas dos bordos da tela para que o trian¬ 
gulo seja desenhado,o TK 90X pode mandar a mensagem: 


B : Inteiro excede limite 30 : 1 


Se ainda nao deu para sentir como funciona 


o DRAW tecle e execute o seguinte programa: 



10 REM *** reticulado simetrico *** 


20 LET p = RND*7 : LET q = RND*7 : LET r = RND*7 

30 IF q = r+1 THEN GOTO 20 

40 BORDER p : PAPER q : INK r+1 

50 FOR j=l TO 175 STEP 4 

60 PLOT 0,2 

10 DRAW 255-j,-j 

30 PLOT j ,0 

90 DRAW 255-j,j 

100 PLOT 0 , 175-j 

110 DRAW 255-j,j 

120 PLOT j,175 

130 DRAW 255-j,-j 
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140 NEXT j 

150 FOR 2=1 TO 999 : NEXT Z 
160 CLS 
170 GOTO 20 

Execute' e veja se sai o que esta mostrado. 



Gos tou? 

Em caso affirmative) adquira o nos so Xivro 
(so faltava ser de urn outro, * . ) "Graficos no TK 
90X". 

Existe uina outra forma, bem mais poderosa 
de utilizar a instruqao DRAW. 

Assim como se pode usar DRAW para desenhar 
linhas retas, pode-se fazer com que o DRAW desenhe 
partes de uma circunferencia ou seja arcos de cir¬ 
cunferencia bastando para isto acrescentar um ter- 
ceiro numero apos a palavra chave DRAW. 

Por enquanto voce pode ate ficar nuraa ig- 
norancia partial porem mude por favor a linha 60 do 
programa 19 para: 


60 DRAW -30,-30, PI/2 
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PI e a palavra que esta era azul aciraa da |tecla M 
e como significa 7r ou seja aproximadamente 3,14 ra 
dianos o nosso antigo triangulo se transformara em 
algo parecido com um pedaqo de bolo. 

Teclou, executou e concordou? 

Fantasticooooo! I l 

Caso voce 4 ue ^- ra desenhar uma circunferen¬ 
cia completa basta utilizar PI. 

Mude mais um pouco o programa 19 ou seja 
acrescente as linhas: 

40 DRAW 80, 0, PI 
50 DRAW -80, 0, PI 

e apague a linha 60. 

Execute e veja se obtem uma circunferencia. 

Ob teve ? 

Fo rmidave1. 



Porem, ja, ja voce aprendera a desenhar 
circunferencias de uma forma bem ,mais simples. 

Como uma ultima enfase especial e parti¬ 
cular para a instruqao DRAW tecle o programa 21. 



10 REM *** o caminho de um microbio desorientado** 

20 PLOT 127,87 

30 LET x = 30 -*RND *45 

40 LET y =* .30 - RND * 45 

50 LET p = PI * RND 

60 DRAW x,y,p 

70 SOUND .25,0 : SOUND .25,-1 : SOUND .25,-3 
: SOUND .25,-5 : SOUND .25,-7 : SOUND .25,-8 
: SOUND .25,-10 : SOUND .25,-12 
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80 GOTO 30 

Execute e veja se sal, independente da exe 
cugjo diversas vezes da escala musical, algo cotno 
mostrado na Figura 12 e ate nao sair fora da tela. 



Figura 12 

A forma simples que o seu TK 90X lhe poss 
bilita desenhar circunferencias esta ligada a in 
t ruqao CIRCLE. 

A palavra chave CIRCLE e uraa palavra era 
vermelho abaixo da tecla H e a sua forma geral e 



abscissa ordenada raio da 


do centro do centro circunferencia 


Para coraeqar a entender esta instruqao te- 
cle o seguinte programa: 



10 REM *** circunferencias *** 
20 PLOT 75,85 


|W !H 
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30 DRAW 100,0,PI 
40 DRAW -100,0,PI 
50 CIRCLE 150,75,60 

Execute!^! 

0 que voce concluiu? 

Nada.' 

Nao e verdade! 

Voce notou que comandado pela instruqao 
CIRCLE a circunferencia nao so e feita mais depres- 
sa como parece mais com uma circunferencia... 

Execute agora o programa 23 que lhe dara 
ou melhor enchera a tela de'circunferencias (25 no 
total) com centros e raios aleatoriamente escolhi- 
das e ainda com um pequeno "fundo musical”. 



10 REM *** circunferencias aleatoriamente defini- 
das **'* 

12 PAPER 0 

15 LET n=l 

20 LET r = RND * 50 

30 LET x = r+RKD * (255-2*r) 

40 LET y = r+RND * (175-2*r) 

50 INK (RND*50)/7 
60 CIRCLE x,y,r 

70 SOUND .25,9 : SOUND .25,11 : SOUND .25,12 
: SOUND .25,5 

80 LET n = n+1 : IF n > 25 THEN GOTO 100 
90 GOTO 20 

100 FOR Z—l TO 2000 : NEXT Z 
110 CLS 





14 8 


149 


Sai algo como esta mostrado na Figura 13* 



Existe uma outra forma que voce caro(a)lei 
tor(leitora) pode usar a instrugao DRAW. 

Suponha que as coordenadas (posigao) do ul 
t-imo pixel plotado. estao armazenadas em alguma par- 

te da memoria do TK 90X. 

Desta forma se voce deseja usar coordena¬ 
das absolutas, assim como quando esta verificando 
uma posigao em um mapa geografico, tudo o que tem 
que ser feito e perguntt:r ao TK 90X que coordenadas 
eram e subtrai-las das novas coordenadas. 

Ate agora, voce sempre pediu ao TK 90X pa¬ 
ra olhar para os nomes do variaveis nas suas caixas 
de memoria. 

Estes nomes eram constituidos de letras ou 
entao de palavras como n$, s$, anna, n„ etc* 

Mas assim como um sitio pode ter um nome 
(como "Xangrila 1 ' , "Repouso do guerreiro", "Goiere", 
etc..*) para distinguir um do outro, evitar a confu 
sao e poderir.cs enoontrar e entrar no sitio correto 


quando somos convidados para algum seniacional chur 
rasco o TK 90X prefere utilizar numeros no lugar de 
nomes para identificar locais e principalmente ende 
regos de memoria. . 

0 carteiro tambem gosta de um numero gran¬ 
de e bem legivel para nao atrapalhar o seu trabalho* 

0 TK 90X possui milhares e milhares de cai 
xas de memoria e cada uma delas tem um numero parti 
cular. 

Assim como um carteiro procure desesperada 
mente o numero correto de uma casa ou de um aparta- 
mento, tambem o TK 90X quando perguntado para olhar 
ou espiar (PEEK) dentro de uma caixa de memoria(por 
exemplo de numero 37156) o faz com uma velocidade 
muito maior do que quando se manda olhar para n$, 
"anna", t, ra$ etc. 

0 unico problema e que voce deve conhecer 
o enderego correto. 

Co.mo o TK 90X tem muitos enderegos (milha¬ 
res sao para uso proprio) e os numeros corresponden 
tes aos mesmos sao bem grandes e nada faceis para se 
ret meraorizados, no Apendice C do Manual de Operagao 
do TK 90X aparece uma lista completa dos enderegos. 

Consu1te-a!! 

0 TK 90X armazena a abscissa x no numero 
de enderego 23677 e a ordenada y no numero de ende- 
rego 23678 (verifique isto no Apendice C do Manual 
de Operagao do TK 90X). 

Para fazer com que o TK 90X olhe nessas cai 
xas de memoria deve-se utilizar a palavra chave 

que e uma instrugao em azul acima da letra 


PEEK 
M 0" . 







150 


A forma raais pratica e teclar o programa 
24 e assim entender o efeito do PEEK antes de par- 
tirmos para uma generalizagao. 



10 REM *** espiando onde nao e simples olhar ...*** 
20 INPUT "Entre com xQ "; x? "QEntre com yQ”;y 
30 DRAW x - PEEK 23677, y - PEEK 23678 
40 GOTO 20 

Quando for executar o programa ao ser n in- 
terpelado" pelo TK 90X sobre os valores de x,y en- 
tre com os que aparecem ao lado da "casinha" da Fi- 
gura 11. 

Alias, aos poucos voce ja esta percebendo 


o que vai se querer programar ou ao menos desenhar. 



0 20 * 40 60 "80 100 120 160' 180 200 220S 


Figura 14 

Execute o programa. 

Saiu a casinha da Figura 14? 
Bom, bom, muito bom. 
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A sua criatividade esta despertada e que 
tal como exercicio intelectual desenhar,aproveitan- 
do o programa 24, o aviao da Figura 15. 



Figura 15 

Caso voce nao consiga, adquira o nosso li- 
vro "Graficos no TK 90X" que la voce encontra a 
resposta... 

Vamos'agora indicar-lhe urn metodo melhor 
para entrar com os numeros (dados) do que aquele ha 
pouco aplicado ou seja,usando a instrugao INPUT. 

Voce pode armazenar dados (DATA) no seu 
programa 24 acres cent'ando as seguintes • 1 inhas : 

50 DATA 80,0,180,20,180,80 
60 DATA 160,120,60,100,40,80 
70 DATA 40,20,80,0,80,60 
80 DATA 60,100,80,60,130,80 

Voce sabe de onde vieram os numeros acima? 

Ah, bom!!! 

0 que se fez anteriormente foi voce ler os 
dados e introduzi-los aos pares atraves da instru¬ 
gao INPUT dentro do TK 90X. 

Caso queira que o TK 90X faga isto para 

voce basta informar-lhe que leia (READ) os dados 
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(DATA) e para tanto ,e necessario mudar a linha 20 


para 


voce. 


20 READ x,y 

Execute agora o programa 24_> 

Sem duvida o TK 90X e bem mals rapido que 

0 TK 90X parou com a mensagem 
~E fim de dados 20:1 \ 


Agora voce ja sabe como utilizar todos os 
comandos graficos e raais uma vez insist.o; obediente 
leitor(a) tente criar as suas proprias figuras e 
neste caso e conveniente ter urn pouco de papel mill 
metrado para otimizar o seu trabalho* 

Este capitulo foi farto de novas instru- 
qoes e' urn bom resumo ser-lhe-a muito util. 


'CIRCLE x,y,r 


DRAW x,y 


DRAW x,y,p 



tWPSi 


■Com esta instruqao desenha-se uma circunferen 
cia centro em x,y e um raio de r_ pixeis. 

Diz ao TK 90X para desenhar uma linha reta en 
tre o ultimo ponto "plotado" (PLOT) e o pixel 
especificado. 

Esta'* na tecla W . 

■Desenha uma curva do ultimo ponto plotado 
ate o pixel especificado por x,y e p e o angu 
lo especificado em radianos. 

Entre dois pontos podemos traqar dois arcos 
de circunferencia diferentes desde que se 

Sparta do mesmo ponto. 

0 arco desenhado no sentido horario e aquele 
que esta acima de dois pontos que unidos estao 
na horizontal. 
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Ja o arco desenhado no sentido anti-horario 
estara abaixo. £ ^ ] 

Angulos com p positivo desenham arcos no sen- 
tido anti-horario e aqueles com p negativo no 
sentido horario. 

DRAW x-PEEK 23677, y-PEEK 23678 -•►Desenha uma linha reta do 
ultimo ponto representado ate o novo ponto de 
coordenadas (x,y). 


INVERSE 1 


PLOT x,y 


READ 




Diz ao TK 90X para preencher o pixel na posi- 
qao especificada com a cor do PAPER ou seja 
para apaga-lo. 

Esta abaixo da tecla M 

■ Diz ao TK 90X para ativar o pixel em uma posi 
gao especificada com a cor do INK. 

Esta na tecla Q 

Diz ao TK 90X para ler os dados das linhas de 
instruqao DATA que podem estar em qualquer 
ponto do programa. 

Armazena-se ai uma lista de dados, 

Caso sejam numericos basta na linha da ins- 
truqao DATA ter os dados separados por virgu 
las, 

Por outro lado se tivermos dados alfanumeri- 
cos eles devem aparecer entre aspas. 

Os dados nas linhas DATA sao lidos e retira- 
dos sequencialmente pela instru^ao READ. 
Geralmente por uma questao de organizagao as 
instrugoes DATA aparecem ou no inicio ou no 
fim de um programa,porem nada impede que es¬ 
te jam colocadas em qualquer ponto. 

Quando a leitura- dos dados pela instrugao READ 
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termina, todos os dados deveriam ter sido usa 
dos e por isto o numero de dados disponiveis 
deve ser igual ao numero de vezes que voce 
indicou, no programa, para que o TK 9f)X efe- 
tue a leitura e a retirada. 

Caso a leitura prossiga se produzira a mensa- 
gem de erro 

E - Fim dos dados 

a menos que voce restaure (RESTORE) a I 1 sta 
de dados usando um comando RESTORE, 

Cada vez que o RESTORE e executado, os dados 
das instrugoes DATA voltam a ser lidos desde 
o inicio pela proxima instrugao READ. No Ca- 
pitulo 21 vai aparecer uma super-aplicagao do 
RESTORE (programa 25). 


SAVE "nome" SCREEN$ —►•Caso voce queira que uma figura fi- 
que armazenada em fita basta usar SAVE "nome" 
SCREENS. 


LOAD "nome" SCREEN$ 


PEEK enderego 




:EEN$ —*-Esta e sequencia de instrugoes que 
voce deve enviar ao TK 90X para que ele car 
regue uma figura para a tela que esta guarda- 
da na fita. 

-►Com esta instrugao efetua-se a leitu 

ra de um determinado enderego da memoria, re- 
tornando o dado que ai se encontra. Consulte 
o Apendice C do seu Manual de Operagao do 
TK 90X. 

Portanto com o PEEK podemos manipular a memo- 
ria do TK 90X. 


Que resumo hein!!?!! 
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£ uma otima idela ir ao Cap.xtulo 23 e ana- 
lisar os programas 8, 9, 10, 11 e 12 que serao mux 
to uteis para que voce compreenda melhor ainda algu 
mas das novas instrugoes que surgiram so neste caoi 
tulo misturadas obviamente com as que voce ja co- 
nhe ce melhor. 









Capftulo 21 

Incrementando ao maximo 
a aita resolucao 


Agora que voce ja sabe como se pode dese- 
nhar quadros noTK 90X seria uma boa ideia utilizar 
este recurso em jogos* 

Apesar de "muito classico" vamos comeqar 
com o jogo da fovea o qual nos perraite dar-lhe uma 
serie de explicaqoes. 

No jogo da forca (programa 25) voce deve 
advinhar uma palavra escolhida de uma lista de pala 
vras pelo seu TK 90 X. 

A medida que voce vai errando a figura de 
urn boneco enforcado vai s endo des enhada. 

Como este programa e um pouco comprido va- 
mos subdividi-lo em'pequenas secqoes* 

Cada trecho pode ser escrito isoladamente. 

Uma maneira de fazer isto e usar a instru- 
qao GOSUB com a qual se desvia para uma subrotina, 

Como voce ja sabe GOSUB e bera semelhante 
ao GOTO (alias voce ja viu o que faz o GOSUB ante- 
ribrmente,..)• 

A principal diferenqa e que com GOSUB o 
TK 90X lembra onde estava antes no programa. 

Ele sai do programa principal, executa o 
que deve ser feito na subrotina e volta ao programa 
principal na instruqao seguinte aquela da qual ele 



saiu toda vez que encontrar a mstru^ao RETURN den 
tro da subrotina (veja a Figura 16). 


Frograma 
principal 



Instru^ao 


InstrtiQao 


Ins tru$ao 




Colocar a 
letra na 
palavra 


Escolher uma 
palavra da 
lista 


Exibir um "as 
terisco" para 
cada letra da 
palavra 



Venfxcar se 
a letra exis 
te na pala- - 


Instru^ao 

RETURN 


/ Esta ^ 
letra esta 

N na pal a 
vvra ? V' 


Figura 16 


Como e possivel repartir um programa em di 
versas subrotinas? 

Um bora inicio (as vezes) e esbogar o pro¬ 
grama todo em um fluxograma como o indicado na Figura 
17. 

As vezes, por incrivel que possa parecer e 
bom comeqar pelo fim.*. 


Imprima a le¬ 
tra usada 


Desenhar a pro 
xima parte do 
"enforcado” 


/ Cora- 
pletou o de< 
\ senho? v- 




Voltar 

. / . 

no inicio 


Figura 17 


















160 


Muitos programas ja tern embutido dentro de 
si o comando SAVE. 

Alias esta e uma outra boa ideia visto que 
garante a voce uma respeitavel economia e nao leva 
os seus dedinhos a ter calos inuteis pois nao e ne- 
cessario hater os programas novamente. 

As primeiras e neste caso ultimas linhas 



900 REM *** armazene a rotina 
910 SAVE "O jogo da forca" 

920 CLS : SOUND 1,20 

930 PRINT "Reenrole para verificar" 

940 VERIFY "0 .jogo da forca" 


Com estas linhas no programa 25 voce pode 
"preservar" (SAVE) o tnesmo usando era algum lugar a 
instrugao GOTO 900. 

Quando o programa terminar se ouvira umsom 
e lhe sera pedido cuidadoso(a) 1eitor(leitora) para 
verificar (VERIFY) a grava^ao para estar seguro que 
realmente se arraazenou na fita adequadamente sera 
nenhuma "raancada" corao por exemplo ter ligado o 
M plug ,r do gravador no seu TK 90X. 


A proximo, rotina e a da lista de palavras 
(20 no nosso caso particular) 


800 REM ** Escolha de uma palavra ** 
810 RESTORE 865 
820 READ numero 

830 FOR J~1 TO INT (RND*numero) + 1 
840 READ p$ 
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850 NEXT J 
860 RETURN 

865 DATA 20 : REM este e o numero de palavras do 


jogo 

870 DATA "hidra" , "queijo", Tf crescer" , ’’conturaaz", 
,r fixar" 

875 DATA "ululante", "hebdomadario", "curso", 
"amplexo”, ”xa" 

880 DATA "veeraencia”, n discussao", "rural", "giz", 
"venti1ador" 

885 DATA "lista”, "bandeira", "caixa", "luz", 
"persiana" Ml 

Vejamos como funciona este tvecho 

\ ' ’ 

Linha 810 —-*-Diz ao TK 90X que os dados (DATA) para esta ro¬ 
tina come gam na linha 86 5,ou seja toda vez que 
se entrar na linha810 serao lidos todos os da¬ 
dos que forem indicados na linha 830 a partir 
do primeiro dado da linha 870 


Linha 820—Le (READ) o numero que esta armazenado na li¬ 
nha 865. 

Este e o numero de palavras na lista. 

•Caso voce queira acrescentar mais palavras, po¬ 
de desde que mude o numero que aparece na li¬ 
nha 865. 


Linhas 830 a 850 —Com este "loop" escolhe-se uma palavra 
aleatoriamente da lista e armazena-se a mesma 
em p$. 

Linha 860 —*■ Faz com que o TK 90X retorne (RETURN) ao progra 
raa principal, uma instruqao apos aquela que 
fez com que se entrasse nesta subrotina. 



162 


0.1 * -^Se voce quiser testar a rotina aclma basta 
escrever GOSUB 800, seguida de um PRINT p$. 

Nao esqueqa de guardar (SAVE) o programa 
depois que terininar cada rotina, 

Vamos agora mostrar como se pode iraprimir 
asteriscos em numero igual ao das letras da palavra 
escolhida pelo TK 9$X. 

400 REM *** imprimindo asteriscos *** 

405 CLS : LET t = 0 : BORDER 3 : PAPER 0 : INK 1 
410 PRINT AT 0,10; FLASH 1; "0 J0G0 DA FORCA" 

415 GOSUB 800 : REM Ai ocorre o desvio para a 

■subrotina na qual se escolhe uma palavra.' 

420 LET c$ - "" 

425 FOR j=l TO LEN p$ 

430 PRINT AT 5,18 + j ; 

435 LET c$ = c$ + 

440 NEXT j 
445 STOP 



Vamos explicar um pouco aomo funoiona este trecho 


Linhas 405 e 410—Estas sao as primeiras linhas do pro¬ 
grama principal. 

Com elas se ajustam as diversas cores, onume 
ro de tentativas (valor inicial zero) e o ti- 
tulo do programa piscante 

Linha 415 —Vai-se a subrotina. 

Linha 420 — ■—» Voce estara mantendo uma copia da palavra na 
tela na caixa de memoria (variavel) c$. 
Inicialmente atribui-se a c$ uma STRING vazia 
ou seja o nada para que voce tenha certeza 
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que nao existe ai nenhuma palavra antiga e in 
desejada. 


Linhas 425 a 440 —^Forma-se um laqo com o qual pode-se im- 
primir os asteriscos, um para cada letra da 
palavra que voce deve advinhar. 

Estes asteriscos serao colocados na caixa de 
memoria (variavel) de nome c$. 

Na linha 425 aparece a instruqao LEN que diz 
ao TK 90X para contar quantas letras existem 


na palavra. 

Na- linha 430 imprime-se um asterisco cada vez 
que se da uma volta -um asterisco .para cada 
letra de p$. 

Neste ponto voce pode fazer um teste do seu 



programa executando-o (RUN) ate este ponto. 
Como voce pode notar surge um certo numero de 
asteriscos no canto da direita da tela. 

Agora tecle PRINT p$ e verifique que existe 
o mesmo numero de asteriscos e de letras. 


A seguir vai o- trecho do programa que rece 


be a sua letra-ou seja a letra escolhida por voce. 


700 REM ** aceitando a sua letra ** 

710 PRINT AT 21,0; "Entre com a sua escolha 
715 PAITSE 0 : SOUND .04,20 
720 LET = INKEY$ 

725 IF Jl$ = CHR$ 13 THEN GOTO 715 
730 PRINT AT 21,25; 2$ 

735 PAUSE 0 : SOUND .04,20 
740 I.ET e$ - INKEY$ 

745 IF e$ < > CHR$ 13 THEN LET &$ = e$ : GO.TOJ30 



164 


750 PRINT AT 21.0: “□□□□□□□□□□□□□□□□□□□□□DDOO ,r 

1 - y ■ 

755 RETURN 25 espa<;os 

Voce pode tambem testar esta subrotina en- 
trando com GOSUB 700 e entao pressionando qualquer 
tecla. 

A instrugao PRINT AT 21,18; na linha 
730 e para que voce se convenes que o programs fun 
ciona, 

Quando estiver testando, aperte todas as 
teclas que tem letras para ver se realmente ele fun 
ciona. 


Mais detalhes de como 
7Z5 


■unciona o trecho de 700 ate 


Pare um pouco para pensar e entenda o que 
este programa realmente precisa como uma entrada 
(INPUT). 

Se voce utilizasse um comando INPUT(comum) 
ura(a) jogador(jogadora) poderia acidentalmente man- 
ter uma tecla pressionada durante muito tempo ou pe 
lo habito bater desnecessariamente para este progra 
ma na tecla ENTER antes de apertar uma tecla com le 
tra ou ainda poderia fazer o quadro rolar fora da 
tela* 

Ao se usar para a entrada, a fungao INKE V $, 
evita-se todos estes problemas visto que so pode 
entrar uma letra de oada vez. 


Linha 710-► Imprime-se a mensagem que espera pela sua es- 

colha, melhor dizendo pelo seu chute. 

0 programa sofre uma parada ate que uma tecla 
seja pressionada e entao ouve-se um som. 


Linha 715 


165 


Linha 720 
Linha 725 


Linha 730 


Guarda-se a letra da tecla que foi apertada. 

Esta instrugao verifica que nao foi apertada a 
tecla I ENTER] 


Caso isto tenha acontecido o TK 90X volta para 
715 para que entre realmente uma letra. 

Note que CHR$ 13 significa ENTER para o TK 90X. 

Imprime a letra deoois da mensagem que pedia es 
ta escolha (linha 710). 


Linhas 735 a 745 —** Para-se novamente o programa ate que 
uma segunda tecla seja pressionada. 

Neste ponto novamente se testa se a tecla ENTER 
nao foi apertada (CHR$ 13). 



Caso nao tenha sido, entao a tecla pressionada 
sera o novo valor para £$. 

Desta forma, caso voce tenha teclado uma letra 
errada voce pode ainda corrigir o erro neste 


trecho do programa. 

Desvia-se novamente para 730, imprime-se a cor 
regao e agora espera-se pelo ENTER para conti 


nuar o programa. 

Resumindoy na primeira vez voce deve apertar 


uma letra que sai impressa e se estiver correta 
aperte a tecla ENTER . 


Linha 750 


*iendo siao apertaaa a tecia |&inie,k; a 
da linha 710 e apagada e o conteudo d< 


mensagem 
U vol¬ 


ta ao programa principal devido a linha 755 que 
tem a instrugao RETURN. 


Verificando as letras 

445 GOSUB 700 : REM Esta e a subrotina na qual voce entra 
com a sua letra 

450 REM Verificagao se a letra escolhida existe na palavra 
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455 LET correto = 0 
460 FOR i = 1 TO LEN p$ 

465 IF £$ <>p$ (i) THEN GOTO 490 

470 PRINT AT 5,18+i; «.$ 

475 LET correto = 1 
480 SOUND .05,10 
485 LET c$(i) = «.$ 

490 NEXT i 

Mais uma vez, voce pode testar o programa 
ate este ponto. 

Como anteriormente, o TK 90X escolhera uma 
palavra e mostrara o numero de asteriscos que cor- 
resporidem as letras da mesma. 

Ai, lhe pedira uma letra, verificara se a 
mesma esta contida na palavra e em caso positivo i 
primira aquela letra nas posiqoes corretas da pal 
v r a * 

Agora deve-se ensinar ao TK 90X o que fa- 
zer se a letra que voce escolher estiver errada, 

Acrescente ao programa as seguintes linhas: 

495 IF correto » 0 THEN GOSUB 650 

500 IF c$< > p$ AND t< 10 THEN GOTO 445 

510 IF c$< > p$ THEN GOTO 560 

Vejamos como funciona o trecho do programa que vai 

da linha 445 ate 510. 

Linha 445— Vai-se a subrotina que pede a voce uma letra. 

Linha 455 —+•> Aqui a variavel ’’correto 1 ' podera ter um dos 
dois possiveis valores 0 ou 1 . 

Se (IF) o seu valor for 1 entao ’’correto" e ver 
dadeira e se (IF) for 0 entao (THEN) "correto" 
e falsa. 


sp 13 
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Deve-se comeqar com "correto" valendo inicial- 
mente zero ( 0 ;. 

Linha 460—Ai comeqa o "loop" para o numero de letras que 
existe na palavra armazenada em p$, 

Linha 465 - 7 *- Com esta instruqao pode-se saltar o resto do 
laqo se £$ nao e i/ual a nenhuma letra de p$. 
Digamos que p$ = "giz" entao p$(l) = "g”, 
p$ ( 2 ) = "i" e p$(3) - ”z”. 

Se a sua primeira escolha for por exemplo a le¬ 
tra "a" entao £$ - "a" e a sequencia do programa 
sera tres vezes as linhas 460,465 e 490. 

Linha 470—► Com esta instruqao apresenta-se a letra armaze¬ 
nada em £$ (e que existe na palavra guardada 
em p$) mostrando-se a mesma na tela na posiqao 
correta. 

Linha 475 —A partir deste ponto "correto" e verdadeira 
pois a letra e a certa... 

Linha 430 —*- Faqamos um pouco de barulho para comemorar o 
acerto... 

Linha 485 —*- Mantem na "copia” c$ a situaqao mais recente da 
tela. 

Linha 495 —Faz o programa desviar para uma subrotina que 
nao lhe foi apresentada ainda. 

Linha 500 —Envia o TK 9^X de volta ao programa se (IF) am- 
bos c$ nao e igual a p$ e (AND) se o numero de 
tentativas (t) e menor que 10 . 

\ 

Linha 510 — Agora voce ja deu dez "chutes" e nao conseguiu 
acertar. 

Se (IF) c$ nao e igual a p$ entao (THEN) com es 
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ta instruqao o TK 90X e desviado para a rotina 
que ira enforcar um ser humano... 

Tambem esta parte, esta logo ai na frente. 


Vamos entao completar o programa 


Ai vai a subrotina que se chamou na linha 


650 REM imprime-se a advinhaqao errada*** 

655 LET t - t+1 

660 PRINT AT 6 + t, 21; t; Jl$ 

665 REM ** Por enquanto vamos deixar uma linha va 
zia *** 

670 RETURN 


Esta rotina e bem simples de entender. 

Com ela conta-se o numero de tentativas (1i 
nha 655) e utiliza-se esta contagem para fazer na 
tela uma lista na vertical do numero da tentativa e 
da letra usada na mesraa. 

Ai entao volta-se ao programa .principal. 

Por enquanto na linha 665 vai uma linha 
com um REM porem e ai que vai uma das partes mais 
importantes do programa. 

Existem ainda duas pequenas rotinas que 
voce devft teclar e ai o programa todo estara pronto 
para ser testado. 


Acrescente as linhas 

520 REM *** Voce e um homem ou uma mulher livre*** 
530 PRINT AT 21,0; "Voce esta livre:!.'" 

540 SOUND 2,20 : SOUND 1,20 : SOUND .5,20 
550 GOTO 400 

560 REM *** A execuqao < correu *** 
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570 PRINT AT 21,0; "Lamentavelmente voce ja era.. " 
580 SOUND 2,-20 : SOUND 2,-30 : SOUND .5,-40 
590 GOTO 400 

Voce pode agora testar o programa e ele de 
veria (deveria. . . ) funcionar adequadamente ? 

0 TK 90X deve escolher uma palavra e exi- 
bir o numero correto de asteriscos. 

Entao ele Ihe pede uma letra. 

Esta e verificada e caso exista na palavra 
isto Ihe e exibido. 

Em caso contrario conta-se a sua tentativa 

errada. 

Depois de 10 tentativas erradas, voce ver 
ficara que foi enforcado(a), porem -isto nao e tao 
facil assim e se usar um-pouco a cuca, tiver um pou 
CO de sorte e com todas estas tentativas (10) segur 
ramente escaparaj! 

Tanto numa situa^ao como na outra o progra 
raa recome^ara "autoiaaticamente". 

Tudo esta funcioriando adequadamente? 

Uootimo !!! 

Escreva entao a ultima parte do programa 
que consiste de 10 subrotinas, uma para cada advi- 
nhagao errada. 

De saida, substitua a linha 665 po 
665 GOSUB t * 25 | 

e ai vai o final: 

10 GOTO 400 

25 REM *** pode desenhar a escora vertica 
30 PRINT AT 6+t,0; "escora vertical" 

35 RETURN 



IH- 
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1 70 

50 REM***pode desenhar a travessa (peqa transver¬ 
sal)*** 

55 PRINT AT 6+t,0; "travessa" 

60 RETURN 

75 REM***pode desenhar o suporte*** 

80 PRINT AT 6+t,0; "suporte" 

85 RETURN 

100 REM***pode desenhar o nariz*** 

105 PRINT AT 6+ t, 0 ; "nariz" 

110 RETURN 

125 REM***pode desenhar o rosto*** 

130 PRINT AT 6^-1,0 ; "rosto" 

135 RETURN 

150 REM***pode desenhar o corpo*** 

155 PRINT AT 6+t,0; "corpo" 

160 RETURN 

175 REM***pode desenhar o braqo direito*** 

180 PRINT AT 6 +1,0; "braqo direito" 

185 RETURN 

200 REM***pode desenhar o brago esquerdo*** 

205 PRINT AT 6+t,0; "braqo esquerdo" 

210 RETURN 

225 REM***pode desenhar a perna direita*** 

230 PRINT AT 6+t,0; "perna direita" 

235 RETURN 

250 REM***pode desenhar a perna esquerda*** 

255 PRINT AT 6+t,0; "perna esquerda" 

260 RETURN 

Voce ainda lembra como e chamada cada uma 
destas subrotinas? 

Resp.: Com a linha 665, onde esta a instruqao GOSUB t*25. 

Em cada tentativa fracassada temos o valor de t e as- 
sim por exemplo, no quinto erro o desvio sera para 125 e ao 
se atingir a ultima "chance" ou seja com t=10 se desviara o 
programs, devido a esta instruqao, para a linha 250* 


Agora, quando voce executar (RUN) o progr 
raa saira impressa uma lista das "partes" de cima p 
ra baixo no lado esquerdo da tela* 

0 programs esta complete e deve funcionar 

beta. * * 

A unica res trigao e que ele iraprime pala- 
vras onde deveriam est.ar desenhos* 

Nao varaos deixar voce totalmente perdido, 

Ai vai uma sugestao - Figura 18 - de urn 
possivel desenho. 



Figura 18 


w IP 
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Caso voce queira que saia o desenho al es- 
ta uma sugestao de como deve ser o seu programa: 

25 REM *** escora vertical *** 

28 RESTORE 44 
32 READ x,y PLOT x,y 
34 FOR i = 1 TO 5 
36 READ x,y 
38 DRAW x - PEEK 23677, y - PEEK 23678 
40. NEXT i 
42 RETURN 

44 DATA 0,15,126,15,103,15,103,144,112,-144,112,15 
Nao esqueqa de tirar a instruqao RETURN da 

linha 35. 

Encaixe, este trecho e veja como ficou o 
seu programa. Precisa de algum conserto? 

Se voce quiser que o seu programa comece a 
funcionar automaticamente basta acrescentar 

LINE 400 

a linha 910 ou seja escrever 

910 SAVE "O'jogo da forca" LINE 400 

Voce encontrara a instruqao LINE impressa 
na tecla vermelha abaixo da ‘tecla 3 , 

Agora guarde (SAVE) o seu pr.ograma com urn 

GOTO 900 * 

Na proxima vez que voce carrega-lo (LOAD) 
ele saltara direto para a linha 400 sem esperar pe- 
lo set RUN. 

£ realmente um dever seu completar os ou- 
tros desenhos e ai sim se promova, pois voce e de 
fato um(a) fora de serie... 
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Mostre para os pais, para os(as) amigos 
(as) e p r inc ipalmente- aos(as) inimi gos ( as ) . 

As novas instruqoes ou as ja conhecidas que 

devemos esmiuqar um pouco mais sao: 


AND (linha 500) Uma grande simp1ificaqao ocorre no 
programa quando utilizamos os operadores logi- 
cos (Tabela 5). 



Tabe1 a 5 


Assim como " < = " , ">« " e AND, OR e NOT 

t£m teclas proprias nao sendo necessario digi- 
ta-las caractere por caractere. 


Havendo a possibilidade de utilizar os operado 
res logicos , era uma. unica instruqao podem ser 
feitas varias comparaqoes ao mesmo tempo. 
Pode-se na mesma instruqlo ter mais de um opera 
dor logico e inclusive uma raistura dos raesraos. 


CHR$ (linhas 725 e 745) 0 conjunto de caracte 

res utilizado pelo TK 90X- e era sua grande maio- 
ria o mesmo utilizado era outros micros e que se 
charaa ASCII (American Standard _Code Information 
Interchange). 

Alem dos caracteres charaados tT padroes" tais co¬ 
mo os digitos, o alfabeto (com raaiusculas e mi 
nusculas),simbolos cornuns como ($,<> ,<=,etc) 

o conjunto de caracteres do TK 90X, inclue as 
palavras chave (IE, GOTO, READ, etc.) 
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Isto nao e tudo, pois dentro dos 256 carac 
teres disponxveis o seu TK 90X possui dois conjun- 
tos de caracteres especiais, utilizados amplamente 
nos idiomas portugues e espanhol (consulte o Capitu 
lo 18 do seu Manual de Operagao do TK 90X). 

Para maior comodidade do(a) usuario(a) o 
TK 90X dispoe de um Editor de UDG que permite a vo¬ 
ce definir caracteres ineditos (veja os programas 
28,29 e 30 que destacarao a sua genialidade. 

Bern, e a fungao CHR$, que vem normalmente 
precedida do comando PRINT, que e empregada para ob 
ter o caractere correspondente ao numero que lhe 

serve de argumeBJtja^_ 

Tec 1 eT PRINT CHR$ 5b) e veja que o TK 90X 
lhe devolve o numero 8. 

Va ao Apendice D do Manual de Operagao do 
TK 90X para confirmar isto* 

Por outro lado se voce teclar no modo ime- 


diato ---- 

(print CHR$ 86 J 
o TK 9$X lhe mostrara a letra V. 

Execute o seguinte mini-programa para "sen 


tir" todo o Apendice D. 



5 REM *** A fungao CHR? *** 



10 FOR j = 32 TO 255 

20 PRINT "CHR$d"; j; CHR$ j; "ODD’; 


30 NEXT j 


Execute e compare a saida com o que tern no 
Apendice D do Manual de Operagao do TK 90X* 

Bateu, nao e? 
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A fungao CHR$ retorna o caractere 

pondente ao codigo. 

Hovp entre 0 e 255* 


co rres- 


Aproveitando a oportunidade vamos falar um 
pouco da fungao CODE que vai aparecer no programa 
27. 

A fungao CODE se aplica a uma STRING e re¬ 
torna o codigo ASCII (veja o Apendice D do Manual 
de Operagao do TK 90X) do primeiro caractere da se- 
quencia a1fanumerica. 

Assim por exemplo s’e voce teclar 

PRINT COPE "Victor" 1 

o TK 90X lhe exibira o numero 86 que corresponde a 
letra V no codigo ASCII. 

A fungao CODE esta acima da 

Ate agora, usamos e abusamos da linguagem 
BASIC porem nao e so isto que o seu TK 90X entende. - 

Pode-se escrever programas mais excitantes 
alnda e principalmente executados mais rapidamente 
pelo TK 90X se os mesmos forem escritos em lingua- 
gem de maquina (do TK 90X) . 

Alias esta e a linguagem do microprocessa- 

dor do TK 90X. 

Como um pequeno exemplo ai vai o programa 
27 no qual voce podera comparar a velocidade de am- 
bos . 

Logo, logo voce vera alguns textos de nos 
sa autoria em linguagem de maquina do TK 90X. 

Bern ai vai o programa: 



tecla I 
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10 REM *** carregando em hexadecimal *** 

20 CLEAR 31999: LET i = 32000 

30 READ c$: IF c$ = "STOP” THEN STOP 

|-r-ft-1 

Este e o comando STOP | 

50 LET n = CODE c$ : LET x = 16*({n-48 
AND n > 47 AND n«58) + (n-55 
AND n >64 AND n<71)) 

60 LET n = CODE c$ (2) : LET x = x + 

(n - 48 AND n> 47 AND n<58) + 

(n - '55 AND n >64 AND n<.71) 

70 POKEi,x: LET i = i+1 

80 LET c$ = c$(3 TO): IF C$ = ""THEN GOTO 30 
90 GOTO 50' 

100 REM ** dados em linguagem de maquina ** 

110 DATA "01FF00" : REM LD BC,255 
120 DATA "3E40" : REM LD A,40 
130 DATA ”D7": REM RST 10 
140 DATA "10 FB": REM DJNZ-5 
150 DATA "C9": REM RET 
160 DATA "STOP" 

500 REM **programa equivalents em BASIC ** 

510 FOR I = 255 to 0 STEP -1 
520 PRINT CHR$ 64; 

530 NEXT I 

1000 REM ** Chamar a linguagem de maquina ** 

1010 PRINT USR 32000 

Para sentir a diferenga entre uni programa 
em linguagem BASIC e o mesmo em linguagem <3e raaqui - 
na escreva RUN 500 e tecle ENTER] . 

Da para notar a diferenga de velocidade? 

Sen duvida!.'Haja <p nao!?!?.’ 
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Nao vamos entrar em grandes detalhes no mo 
mento, sobre o programa 27 porem convem "clarear"um 
pouco duas instrugoes. 

CLEAR (linha* 20)—•►Diz ao TK 90X para reservar al- 
gura espa 90 para a linguagem de maquina. 
Esta instrugao esta sobre a tecla X . 

.Com CLEAR apenas, sao zeradas as variaveis 
BASIC existentes na memoria. 

Casoj se tenha o formato CLEAR ramtop , 
ramtop define o maior enderego do BASIC. 

USR (linha 1010)—^Diz ao TK 90X para executar a ro 
tina em linguagem de maquina comegando na 
posigao de memoria especificada. 

Esta acima da tecla L . 

Ja, ja voce vai se maravilhar mais ainda 
com o seu TK 90X quando utilizar POKE , USR e BIN . 

Nao se afobe leia tudo com atengao e se. 
for po.ssivel duas vezes. . . 
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0 TK 90X fica ate mais alegre e "esperto" 
quando voce consegue convetsar com ele na linguagem 
de maquina. Aqui termlnou o "oizao" e restam os se- 
guintes comentarios finais sobre o programs 25, 


LEN (linhas 425 e 460)—►Retorna o numerc de carac- 


teres existentes na STRING especificada 
entre aspas ou armazenada na variavel 


STRING. 


LINE (linha 910)-*-Diz ao TK 90Xpara comeqar o pro 

grama assim que o mesmo terminar de ser 
carregado. 

RESTORE (linha 810)—►Restaura os valores contidos 
nas linhas DATA permitindo nova leitura pe 
lo comando READ. 

Quando seguido de urn numero de linha (no 
nosso caso tem-se RESTORE 865) inicia a bus 
ca dos dados a partir daquela linha. 


Quando o TK 90X e ligado ele conhece a for 
ma de 111 caracteres. 

Este e o numero total de letras, numeros, 
sinais de pontuaqao e simbolos graficos impressos 
nas tec1as. 

0 TK 90X tem tarabem 21 caracteres que fa- 
cilmente podem ser " r.ede s enh ados ff . 

Estas sao copias das 21 primeiras letras 
de forma (de A ate U), . 


Digite'as letras de A ate U era modo grafi- 
co, isto e coraece com PRINT "(era modo K e feche 
as aspas era modo L )*•*.. 

C PRINT "ABCDEFGHIJKLMNOPQRSTU ") 


0 resultado sera a impressao destas letras 


na forma maiuscula. 
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Pouco interessaria isto se o conjunto obti 
do era 0 fosse identico ao conseguido por [CAPS 


SHIFT . 


Na realidade estas letras estao so esperan 
do para serera substituidas pelos simbolos graficos 
que voce criativo(a) leitor(a) vai inventar. 

Mas antes de .criar para voce alguns destes 
caracteres, vou'ensinar-lhe a acessar os caracteres 
especiais ja existentes. 

Digite: 


UDG 0 ENTER 


se obtetn UDG com SYMBOL SHIFT 
ItecTa X e UDG vem de user 


, \V, ] definable g^raphics^, isto e, carac 

teres graficos definidos pelo 
usuario(a) 1 . 

'Ay J 

Repita agora o PRINT", entre no modo | e 
digite cada letra de A-U novaraente deixan^do um es- 
pago em branco entre cada uma. 

Esta vez o resultado deve ser 

SfilO.fla'eiouSfiaeoaQq 

Viva, viva, viva o TK 90X!’J 

Finalmente varaos poder escrever em Portu 

gues . 

0 .I.^ Se voce quiser acessar o conjunto de particu 
lares caracteres do espanhol repita o procediraento 
anterior porem escreva UDG 1. 

E muito interessante o resultado final. 


Expe riraente 


* t i ♦ 


Voce agora pode'escrever corretamente "por 
tugues" e para tanto faqa o seguinte: 

UDG 0 : PRINT "portugues" 
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e para obter o "9" use a tecla P no modo grafico ou 
seja tec 1e (<CAPS SHIFT><9>). 

Para conhecer outras novidades tecle ini- 
cialmente o programa 28. 


PROGRAMA 28 


10 REM *** Conhecendo U. 

20 PRINT CHR$ 144 , - 

30 FOR j=0 TO 7 j 
40 READ byte / 

50 POKE j' + USR CHR$ 144, 
60 NEXT j 
70 PRINT CHR$ 144 
30 DATA BIN 11111111 
90 DATA BIN 10011001 
100 DATA BIN 10011001 
110 DATA BIN 10011001 
120 DATA BIN 11111111 
130 DATA BIN 10011001 
140 DATA BIN 10011001/ 
150 DATA BIN 11111111 


D. G. *** __ 

J jui que se charaa ' 
istruqao UDG. 
ela se inserem ca 
teres especiais. 

)mo comentamos ha 
5uco o codigo que 
a depois da instru 
3 UDG pode ser 0 
i caracteres em 
:ugues, 1 para ca- 
:eres em Espanhol 
para o editor UDG/ 


Cada caractere e formado de 64 pixels. 

Eies compoem urna matriz (veja o Capitulo 
22) ou seja urn tabuleiro de xadrez de 8 linhas por 
8 colunas. 

Cada linha de instru^ao DATA e cons tituida 
agora apenas de "uns" e "zeros". 

Da para voce notar o tipo de padrao que os 
uns fi z eram ? 

£ algo deste tipo 
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Exptioacao sobre o ’programa 28 


Linhas 20 e 70-Ambas dizem ao TK 90X para desenhar o mes 

mo caractere > CHR$ 144* 


Agora execute o programa. 
Voce viu o que aconteceu? 


Inicialmente a linha 20 imprimiu o caractere 144. 
Depois de ter sido feito o "loop” imprimiu-se de 
novo o caractere 144. 

Porem desta vez nao foi mais a letra maiuscula "A" 
< 3 > e sim urn quadrado com uma cruz dentro. 

Agora ficou evidente, creio eu, reconhecer este 
desenho (padrao) das linhas de DATA. 



Entrar com CHR$ 144 e o mesmo que dizer ao 
TK 9$X para imprimir T, A" (PRINT "A”) onde "A" signi 
fica entre em modo grafico apertand'o a sequencia 
CAPS SHIFT , a tecla 9 i ,• a tecla A e finalmen— 
te a /tecla 9 . 

Para cada "1" na linha de DATA, o pixel 
correspondente da matriz 8x8ie ativado e com esta 
simples explicaqao voce pode desenhar,a partir de 
agora,os mais sugestivos caracteres como por exem- 
plo os que irao aparecer no programa 29 que podemos 
chamar de TT Invas ores" . 


PROGRAM A 29 J 

Tecle primeiro todo o programa e gtiarde na 
fita com o nome "Invasores". 


5 REM *** Invasores *** 

10 GOSUB 800 : REM**15 nesta subrotina que se defi 
nem os caracteres** 





182 


183 



branco 

52 espagos em branco 


20 LET a$ =.. E 
30 LET b$ 

40 LET c$ = "□□□ 

50 LET r$ = "0 " 

60 PAPER 0 : INK 6 S BORDER 0 : CLS 
70 LET arma = 1 : PRINT AT 21, arma? r$ 
80 LET invasor - 0 
90 GOTO 500 


QD" 


100 REM *** teclas para mexer a sua arma *** 

110 LET m? = INKEY? 

120 IF m$ = ""THEN SOUND .125,-40+j : GOTO 180 
130 IF m$ = ”0" THEN GOSUB 200 
140 PRINT AT 21, arma; 

150 IF m? = "8" AND arma <29 THEN LET arma=arma+l 
160 IF m$ = "5" AND arma >0 THEN LET arma=arma-l 
170 PRINT AT 21, arma; r$ 

180 SOUND .004, -30+j 
190 RETURN 

200 REM *** disparar a arma*** 


210 FOR 2 = 20 TO j STEP-1 

220 IF SCREEN? (St, arma) = '"'THEN GOSUB 300 
230 PRINT AT 2, arma; "I" 

250 SOUND .00125,2. 

260 PRINT AT 2, arma; 

270 NEXT 2 
280 RETURN 

300 REM***mostrando o invasor atingido*** 

310 BORDER 7 

320 LET a? (arma+1) = 

330 LET b? (arma+1) = 

340 SOUND .25,40 : SOUND .125,30 
350 LET invasor - invasor+1 
360 buRDER 0 ~ 

370 PRINT# 1, AT 0,7; "Qinvasores atingidosQ" ; inva 
sor 


330 RETURN 

500 rem***a£ vai o lago principal*** 

510 FOR j=0 TO 20 
520 PRINT AT j,0; a? 

530 GOSUB 100 

540 PRINT AT j,0; b? 

550 GOSUB 100 

560 PRINT-AT j,0; c$ 

570 NEXT j 

580 REM**contagem e repetigao** 

590 PRINT AT 2,5; "Voce acertouO"; invasor; 

"Qdos 8 existentes" 

600 PRINT AT 7,3; FLASH 1; "Aperte qualquer tecla 
para brincar de novo" 

610 PAUSE 0 
620 RUN 

800 REM***Al vao os desenhos dos caracteres grafi 
cos*** 

810 READ c?: IF C$ = "f" THEN RETURN 
320 REM ** Para cada caractere 8 bytes** 

830 FOR j=0 TO 7 

840 READ byte 

850 POKE j+USR c?,byte 

860 NEXT j 

370 GOTO 810 

880 DATA "a” 

890 DATA BIN 00000000 
.900 DATA BIN 00111100 
910 DATA BIN 01011010 
920 DATA BIN 01111110 
930 DATA BIN 00111100 
940 DATA BIN 00100100 
950 DATA BIN 01000100 
960 DATA BIN 10000100 
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970 DATA "b" 

980 DATA BIN 00000000 
990 DATA BIN 00111100 
1000 DATA BIN 01011010 
1010 DATA BIN 01111110 
1020 DATA BIN 00111100 
1030 DATA BIN 00100100 
1040 DATA BIN 00100010 
1050 DATA BIN 00100001 
1060 DATA "c" 

1070 DATA BIN 00000000 
1030 DATA BIN 00011000 
1090 DATA BIN 00011000 
1100 DATA BIN 00111100 
1110 DATA BIN 00011000 
1120 DATA BIN 00111100 
1130 DATA BIN 11111111 
1140 DATA BIN 11111111 
1150 DATA "f" 

Bern ax- esta todo o programa 29 "Invasores" 

Antes de executa-lo leia algumas explica- 

goes . 

Neste jogo voce tem oito invasores e uraa 
arma espacial e deve extermina-los!! ! 

0 simbolo em negrito e para destacar o mo- 
do grafico e a letra da tecla e por exemplo . 

Mais uma vez destaco que nas linhas 20 e 30 
devem existir tres espagos em branco entre cada ca- 
ractere grafico. 

No trecho que vai da linha 20 ate a linha 
90 aj us ta ram-s e os valores para as cores, para as 
variaveis e principalmente atribuiram-se valores as 
variaveis STRING a$, b$, c$ e r$. 
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No trecho que vai da linha 100 ate a linha 
190 tem-se a subrotina que le o tecladoe move a ar 
ma. 

No trecho que vai da linha 200 ate a linha 
280 tem-se a subrotina que verifica se o missil es¬ 
ta na eminencia de bater em algo. 

SCREEN$ nao pode reconhecer urn UDG ou seja 
um caractere criado por voce estimadofa)'usuario(a). 

Quando encontra um UDG ela (a instrugao 
S GREEN $) r'etorna uma STRING vazia e e nisto que se 
baseia o teste; ver. quando e que se encontra o "na- 
da"... 

Esta subrotina desloc.a tambem o projetil 
(veja a linha 230). 

No trecho que vai da linha 300 ate a linha 
380 tem-se a. subrotina que e chamada quando um inva 
sor e atingido. ' 

As linhas 320 e 330 sao para apagar o inva 
sor subs.tituindo o seu- caractere em a$ e b$ com um 
espago em branco. 

Esta rotina acompanha tambem a evolugao da 
eliminagao dos invasores e iraprime-se a contagem na 
tela no espago reservado a comunicagao com o TK 90X 
("espago de trabalho”). 

Tenha muito cuidado quando utilizar este 
espago da tela, esteja seguro que isto nao provoca- 
ra o roiamento (scroll) da tela ou alguma coisa im- 
par ocorra. 

No trecho que e composto pelas linhas de 
500 a 570 tem-se o "loop" que faz.os invasores se 
movimentarem e onde se chama a subrotina que permi- 
te a sua arma se deslocar na tela. Nao esquega que 
com a tecla 5 voce vai para a esquerda e com a 
vai para a direita. 


tecla 8 
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0 trecho que vai da linha 580 a 620 lhemos 
tra a contagem final e permite que se comece tudo 
de novo caso esta for a sua vontade senhor(a) do- 
no(a) do TK 90X. 

£ na subrotina que comeqa em 800 , que es- 
tao os caracteres especiais criados com o auxilio 
da notaqao binaria (BIN), colocados na memoria do 
TK 90X com o auxilio da instruqao POKE e achados pe 
lo TK 90X, quando solicitado, com a instruqao USR, 

Ressaltando, nao esqueqa pois que oconteu 
do de cada tecla (de A ate U) pode ser trocado por 
voce pois ai tem-se os caracteres UDG ("user,define 
ble graphics")'. 

Toda vez entretanto, que o TK 90X for liga 
do o conteudo padrao aparecera. 

Se voce quiser uma retrospectiva, vera que 
no "vermelhc" UDG obtem-se o conteido das teclas A 
ate U em modo G, quando> se digital 



Nao confunda com os caracteres que obteve 
com UDG 0 (ou com UDG 1). 



No livro dos meus filhos Sergio e Victor 
voce podera sentir toda a importancia da existencia 
dos caracteres UDG. 


0 nome do livro eu quase ia esquecendo. • . 
£ "Jogos e Desenhos no TK 90X" vol* 1. 


18,7 


Porem, depois deste comercial nao posso fi 
car em um unico exemplo e e por isto que existe o 
programa 30. 

f -- ^ 

[PROGRAMA 30 "A caca ao submarino" J 

Voce vai participar de um jogo eletronico 
que u s a U'D G . 

Neste programa voce aprendera como se pode 
criar figuras ou formas grandes compostas de varios 
pequenos UDG ou seja caracteres criadas por VOC£ 
prOprio(a). 

No programa 3$ os caracteres A,B e C sao 
modificados para no conjunto representarem um des- 
troier e e nas teclas D, E e F que se cria um sub¬ 
marino. 

Como no programa 29 voce tern que colocar o 
TK 90X no modo grafico e ai apertar a tecla requeri 
da . 

Bern ai, vai todo o programa "A caqa ao sub 

marino” 


5 REM *** A caga ao submarino *** 

10 let i$ - ^□□□□□DaaaaQQDamaDanaaQaQDDQaaq ,t 

^ _ ' tecle 52 espacos em branco 

20 FOR j = 0 TO 2 

30 PRINT INK 1; PAPER 5? £.$ 

40 NEXT j 

50 FOR j=3 TO 20 

60 PRINT INK 1; PAPER 4; Z$ 

10 NEXT j 
80 PRINT PAPER 6; 

90 BORDER 4 : PAPER 8 

100 GOSUB 1000 

110 LET d$ = '03 0 HD" 
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120 LET S$ = "DEOHP" 

130 LET dest = 13 

140 LET suby = INT(RND*16)+4 

150 PRINT AT 2, dest? d? 

160 GOTO 500 

170 REM***Langamento de carga de profundiddde*** 
180 FOR h = 3 TO 20 

190 IF subx >0 THEN PRINT AT suby, subx; s$ 

200 IF subx = 0 THEN PRINT AT subv,0; "□□□□□" 
210 IF SCREEN? (h,dest+5) = THEN GOTO 310 
220 PRINT AT h, dest+5; "0" 

230 LET subx = subx-1 
240‘SOUND .05,-30 
250 PRINT AT h,dest+5; 

260 NEXT h 
300 RETURN 

310 REM***Acertando o submarino*** 

320 FOR z=l TO 13 

330 PRINT AT h,dest+5; "H” 

340 BORDER 0 

350 SOUND .005,RND*(-25) 

360 PRINT AT h,dest+5; ”£0" 

370 BORDER 7 

380 SOUND .004, RND*(-25) 

390 NEXT z 
400 BORDER 4 

410 PRINT AT suby, subx? ”□□□□□" 

420 GOTO 140 

500 REM ***Este e o loop principal*** 

510 LET subx = 28 

520 IF subx>0 THEN PRINT AT suby,subx; s$ 

530 LET subx = subx-1 
540 LET m? = INKEY? 
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550 SOUND .1,-20 

560 IF- m? = "0" THEN GOSUB 170 - 

570 IF m? = "5" AND dest >1 THEN LET dest = dest-1 
580 IF m? = "8" AND dest< 24 THEN LET dest=dest+l| 
590 PRINT AT 2, dest? d$ I I 

600 IF subx > =0 THEN GOTO 520 / 

610 PRINT AT suby,0; "□□□□ / I I 

620 GOTO 140 / I 

1000 REM***Definindo os caracteres***" / / 

1010 READ c? : IF c? = ”u" THEN RETURN / | 

1020 FOR b=0 TO 7 

1030 READ byte / j 

1040 POKE b+USR c?, byte / I 

1050 NEXT b I 

1060 GOTO 1010 / / 

1070 DATA "a" / 1 

1080 DATA BIN 00000000 _ I 

1090 DATA BIN 00000001 Com a tecla 8 I I 

mo vi merit a-se f i 

1100 DATA BIN 00000001 o destroier I I 

1110 DATA BIN 01111001 1—---1 J | 

1120 DATA BIN 00011001 I 

1130 DATA BIN 11111111 I 

1140 DATA BIN 01111011 T I 

1150 DATA BIN 00111111 vimenta-se o das- / 

1160 DATA "b" troier p a 6 6S - I 

querda J 

1170 DATA BIN 10000000 >---J 

1180 DATA BIN 10011011 ■ I 

1190 DATA BIN 10011011 I 

1200 DATA BIN 10011011 f- ' l.ansa-so a carga - 

1210 DATA BIN 11111111 taeir” 1 *"** * ‘ 

1220 DATA BIN 11111111 

1230 DATA BIN 01110111 

1240 DATA BIN 11111111 


Com a tecla 5 mo- 
vimenta-se o des¬ 
troier p a a es- 
querda 


Lanqa-se a carga 
ao pressionar a 
tecla 0 
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1250 DATA "c" 

1260 DATA BIN 00000000 
1270 DATA BIN 0^000000 
1280 DATA BIN 00000000 
1290 DATA BIN 00111100 
1300 DATA BIN 00110000 
1310 DATA BIN 11111111 
1320 DATA BIN 01110111 
1330 DATA BIN 11111110 
1340 DATA "d" 

1350 DATA BIN 00000000 
1360 DATA BIN 00000000 
1370 DATA BIN 00000000 
1380 DATA BIN 00000000 
1390 DATA BIN 00000000 
1400 DATA BIN 01111111 
1410 DATA BIN 11111111 
1420 DATA BIN 01111111 
1430 DATA "e" 

1440 DATA BIN 01100000 
1450 DATA BIN 00100000 
1460 DATA BIN 01111000 
1470 DATA BIN 01111000 
1430 DATA BIN 011.11000 
1490 DATA BIN 11111111 
1500 DATA BIN 11111111 
1510 DATA BIN 11111111 
1520 DATA "f" 

1530 DATA BIN 00000000 
1540 DATA BIN 00000000 
1550 DATA BIN 00000000 
1560 DATA BIN 00000000 
1570 DATA BIN 00000000 
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1580 DATA BIN 11111101 
1590 DATA BIN 11111111 
1600 DATA BIN 11111101 
1610 DATA "u" 



Antes de brincar com o programa leia as se 
guintes explicates: 

Em primeiro lugar, mais uma vez e agora a 
ultimi, para conseguir os caracteres A^B^C^D^E e F 
(linlias 110 e 120) nao esquega de colocar o TK 90X 
no modo grafico ( [CAP S SHIFT} e tecla 9 apertadas si- 
mu 1 taneamente) . 

No trecho que vai da linha 5 ate a linha 
160 esta a rotina para o ajuste inicial da tela. 

0 topo da tela Simula o ceu, depois vein o 
mar e em seguida ou melhor em baixo urn pouco de 
areia,.« 

Note que na linha 90 ao PAPER se deu o va¬ 
lor 8. 
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Isto nao e uma cor!/! 

PAPER 8 e transparente como o vidroJ/J 

Isto permite que se veja q fundo... 

Em qualquer impressao posterior se usara a 
cor para o PAPER que ja foi ajus tada para aquela 
parte da tela. 

£ na linha 100 que se chama a rotina na 
qual se definiram os caracteres que serao atribui- 
dos a d$ (linha 110) e s$ (litiha 120) ou seja crian 
do respectivamente o des troier e o submarine. 

A variavel "des t 11 guarda a posiqao do des- 
troier, enquanto que a variavel "suby" indica a pro 
fundidade do submar ino. 

No trecho que vai da linha 170 a 300 esta 
a subrotina que e chamada por voce caro(a) possui- 
dor(a) deste livro e do TK 90X quando pressionar a 
t e c 1 a 0 . 

Ela manipula o movimento do submarino na 
tela e o movimento para baixo da carga de profundi- 
dade . 

Na linha 210 verifica-se se alguma coisa 
foi atingida. 

Se isto ocorrer desvia-se para a linha 310. 

No trecho que vai da linha 310 ate a linha 
420 o bordo pisca e simula-se uma explosao. 

Finalmente faz-se o bordo voitar a cor ori 
ginal, apaga-se o naufragio (destruiqao) e vu-se 
para uma proxima div^rsao de afundamento n . 

'No trecho do programa da linha 500 ate c.620 
esta o "loop" principal que entre outras coisas per 
mite movimentar o destroier, disparar a carga e mo- 
viraentar o submarino. 


Finalmente no trecho da linha 1000 ' ate a' 
1610 esta a de’finiqao dos caracteres que constituent- 
o destroier (guardados nas letras A, B e C) e o 
submarino (definxdos nas letras D,.E e ,F) . 

Sai-se automaticamente desta subrotina 
quando for lido para‘c$ o valor f, u tf de ultimo. 

Para que o TK 90 X pudesse entender estes 
dois ultimos programas (29 e 30) foram utilizadas 
as. seguintes novas e muito importantes instruqoes: 


BIN 


^Diz ao TK 90X que ,o numero que a segue. e 
um numero binario 
Ela esta sobre a 
Com esta instruqao um numero em binario e 
convertido para"decima1♦ 

Caso o numero seja maior que 65535iocorre- 
ra um erro de sintaxe. 


( BINary) 
I tec la B 


Se por exemplovoce escrever 
PRINT BIN 10111 


o TK 90X lhe retorna o numero 23. 

Como cada dado e composto de 8 bits ou se¬ 
ja por um byte, para se representar um ca- 
racter, por exemplo o da Figura 19 , teria 
mos que "traduzir” a-sua forma era bits. 

0 TK 90X usaa linguagem binaria e so en- 
tende os numeros 0 e 1. 

Um caractere pode ser definido era uma raa- 
triz 8x8 (falaremos bast-ante de matrizes 
no Capitulo 22) e portanto para que o TK 
90X entenda o caractere da Figura 19 deve- 
se apresentar a ele os seguintes sequen- 
ciais de zeros (0) e uns (1). 
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Como voce ve, e bem facil criar um caracte- 
re especial basta ter um pedago de papel 
quadriculado e utilizar quadriculados 8x8. 


Alias, como auxilio para que nao perca 
tempo na localizagao dos seus desenhos na 
Figura 20 voce tem a tela do seu TK 90X 
quando estiver trabalhando com a instruqao 
PRINT AT. 


Tire quantas copias quiser da mesma e ga- 
nhe tempo na localizagao dos seus ,f enge- 
nhos" no momento que se investir com o ti- 
tulo e adotar o trabalho de programador(pro 
gramadora). 

Nesta altura dos acontecimentos ja da para 
programar alguma coisa, nao e? 
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Figura 20 - Representaqao grafica da 
tela de video usado pelo 
TK 90X 
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PRINT 1 iz ao TK 9.0X para imprimir no "espa^o 

.. I rt 

de trabalho". 


POKE 


■»- Diz ao TK 90X para armazenar um inteiro 
entire 0 e 255 era uma especifica posigao 
da ’memoria* 

A instrugao POKE esta na 
A forma geral da instrugao POKE e 


t e c 1 a 0 


POKE enderego da memoria, valor 


USRj 


onde "enderego da memoria" pode ser qual 
quer valor inteiro de 0 a 55535'e "va¬ 
lor" pode ser qualquer numero inteiro 
de {1 a 255 . 

Caso se apresente algum valor fora des- 
t T a faixa ira aparecer erro do tipo B. 

Assim por exemplo POKE 42384,37 indica 
a introdugao do valor 20 (era decimal)no 
en.de.reqo de memoria 22384 (era decimal). 

Diz ao TK 90X para a char a posigao de 
memoria ou enderego para um especifico 
caractere grafico definido pelo(a) usua 
rio(a). 

EstS na l tecla L | • 

De uma forma geral com a instrugao 
USR enderego de memori~aj executa-se uma 
subrotipa em linguagem de maquina que 
se inicia no enderego especificado. 

Sera que agora voce entende um pouco me 
lhor o que se obtem com a instrugao da 
linha 1040 do programa 30? 


Acho que sim, porem como auxilio note 
que b+USR c& a cada volta no "loop! 1 
permite que se tenha um novo endereqo 
de memoria e a cada volta guarda-se ax 
um valor da variavel byte. 

Como sao 8 voltas tudo e guardado em um 
caractere ou s e j a aquele atribuido a 
c$ . 

































Caprtulo 22 
Matrizes 


De fi.nigao 

Matriz e um donjunto de variaveis com o 
mesmo nome. 

Cada elemento de uma matriz e identificado 
por um ou mais indices numericos (de uma forma (mi¬ 
ca) e que aparecem entre parenteses seguindo o nome 
da matriz* 

Em outras palavras quando *possuimos uma s 
rie- de dados inter-re lacionados de alguma forma en 
tre si podemos guarda-los em uma unica variavel que 
costuma-se chamar de MATRIZ * 

Um exemplo de um elemento de uma matriz 
unidimensional e 



a(13) = 640 


nome da 
matriz 


indice que 
identifica urn 
elemento da 
matriz 



Uma matriz pode center dados numericos ou 
alfanuraericos (STRINGs)* 

Quando os elementos de uma matriz sao da- 

t 

dos STRINGS, o nome da raesma deve ser seguido pelo 
simbo1o "$ u . 


!<t>l 
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Costuma-se chamar os elementos de uma raa- 
triz ("array” em ingles) de variaveis subseritas ou 
indexactas . 

Antes de podermos usar qualquer matriz de- 
vemos reservar espaqo para ela na memoria do seu 
TK 90X . 

t para esta finalidade que existe a ins- 
truqao DIM (de dim ensionamento) 

Suponha que voce queira montar uma matriz 
contendo a "coieqao" de variaveis a^ > a 2) a 3» a 4> a 5> 

e 3 y » 

Neste caso em primeiro lugar voce deve in- 
formar ao TK 90X quantos elementos comporao a ma¬ 
triz a ( ) . 

Isto e feito atraves da instruqao DIM ou 
seja escrevendo logo no inicio do orcgrama 



Figura 21 - Quarto elemento da matriz 

a( ) que tern sete elementos 

De uma forma geral para varia^.is nuraeri- 

cas ou STRINGS es creve-se: _ 

j htm nome (dimens ao) 
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com.a qual permite-se- reservar na memoria do TK 90X 
area para matriz numerica ou STRING, unidimensional 
ou multidimensional* 

Uma varlave 1 STRING deve ser dimensionada 
em numero (x) e em comprimento (v). 

asassssamaa , mamnbci w 

Desta' forma quando se escreve 
DIM n$ (4,15) 

esta se dimensionando uma matriz para 4 STRINGS ‘de 
comprimento maximo igual a 15 caracteres. 

Po<3eriam ser elementos desta matriz, os se 

guintes 

n$(l)-MIRSHAWKA (9 carac teres especfficos e 

os outros sao espagos em 
branco) 

n$ (2 )-—^SERGIO 
n$ (3)—VICTOR 
n$ (4)-— ALEXANDRE 

De uma forma geral quando se dimensiona 
uma matriz STRING escreve-se 



DIM n$(x , y ) 


® corresponde ao nume 
ro de elementos que 
serao introduzidos na 
ma triz 


© corresponde a quan- 
tidade de caracteres 
para- cada .elemento da 
matriz 


Quando para um dado elemento o numero de 
caracteres e superior a y eles sao, ignorados e os 
elementos da matriz n$( ) tem as suas posigoes pre- 
enchidas da esquerda para a direita e caso haja fol 
ga, as restantes posigoes sao automaticamente preen, 
chidas com espagos em branco. 

As variaveis subscritas facilitam e dao 
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grande versati1idade a programagao em BASIC para o 
seu TK. 90X. 

Uma das mais importantes ap i ica^oes das va 
riaveis subscritas e na armazenagem de Lista de nu- 
meros e/ou STRINGS atraves das instruqoes READ-DATA 
ou INPUT. 

A variavel de controle pode tambem ser uti 
lizada corao variavel para o subscrito em uma varia¬ 
vel indexada, fazendo com que cresqa em uma uni da- 
de , cada vez que o "loop" for lido. 

Veja o programa 13 do Capitulo 23. 

Matrizes numericas bi dimen si onai $ ,tri dimensional s ^ 
etc. 

0 seu TK 90X alem de aceitar "linhas de va 
riaveis” (veja a Figura 21) pode tambem aceitar varia 
veis organizadas em tabelas feitas de linhas e colu 
na s . 

Assim por exemplo 

DIM a(10,10 ) 

define uma coleqao de variaveis organizadas em 10 
linhas e 10 colunas. 

£ comum referir-se a um elemento desta ma- 
triz ou tabela como a(i,j) onde o primeiro indice 
(i) indica a linha e o segundo indice (j) indica a 
c o1una. 

£ evidente que com DIM a(10 ) I0) reservamos 
na memoria do TK 90X espa$o para 10x10 = 100 varia- 
veis numericas. 

A ideia de uma matriz bidimensiona1 pode 
ser expandida para matrizes a tres , quatro,... ate 
2 5 5 dimens oes. 


No' raomento nao ha nenhuma vantagem em "di- 
vagar" sobre o que representariam variaveis com tan 
tos indices. 

Aceite entretanto, credulo(a) leitor(leito 
ra) que elas tem muito uso,,. 

So como ilustraqao, nest a linha de racio- 
cinio se voce escrever por exemplo 

DIM a(10,15,8) 

estara reservado na memoria do TK 90X espaqo para 
10x15x8 = 1200- variaveis numericas 
sendo que um elemento tipico poderia ser a(3,7,6). 

Ai ja surge um indicio do porque matrizes 
com muitas dimensoes nao sao muito usadas - voce po 
de acabar com a memoria do .seu TK 90X rapidamente. 

Veja nos programas 14 e 15 do Capitulo 23 
a aplicaqao da instruqao DIM e das matrizes. 

Muy amigo(a) acho que quern chegou aqui vai 
entender tudo o que resta ou seja- o Capitulo 23. 

Porem nao esqueqa que existem outros li- 
vros.de nossa autoria e dos meus filhos Sergio e 
Victor uos quais aparecem programas basfcante origi¬ 
nals e que Ihe darao a condigao de completar o,seu 
conhecimento e o pleno dominio do TK 90X, 

Por enquanto ja ,, existera ,, , 

"Jogo.s e Desenhos no TK 90X"-vol.l 
"Graficos no TK 90x“ 

e vem muito mais ai pela frente..• 





Capftulo 23 
Programas adicionais 


1) Elabore urn programa que entre coin sete numeros atraves do 
teclado e apresente na tela a sua soma. 

Solucao:' 


10 INPUT N1 
20 INPUT N2 
30 INPUT N3 
40 INPUT N4 
50 INPUT N5 
60 INPUT N6 


Aqui tambera poderia-se ter usado para 
nome das variaveis numericas as letras 
AjBjC.D.EjF.G'no lugar de Nl,N2,N3 f N4, 
N5,N6,N7 


70 INPUT N7 J 

80 LET S=N1+N2+N3+N4+N5+N6+N7 ^ 
90 PRINT A soma e igual a:0";S 


Ordena-se ao TK 90X 
atribuir a variavel 
S a soma das varia¬ 
veis N1,N2,,..,N7 




'Aqui se inanda imprimir a 
mensag^ra e o valor da i 


soma 




2) Elabore um programa que some os dois primeiros numeros 
que entrain, divide os mesraos por dois, a seguir soma o re- 
sultado com um terceiro numero multiplicado por dois e di 
vide esta ultima soma por 3 apresentando na tela o resul- 
tado final. 

Soluqao : 

•Na realidade queremos obter o valor de M obtido da formula 
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10 INPUT "Entre com o primeiro numero Q"; A 
20 INPUT "Entre com o segundo numeron n ;B 
30 INPUT "Entre com o tercelro numero 0";C 
40 LET M = ((A+B)/2 + 2*C)/3 
50 PRINT "0 resultado final e:Q T, ;M 


3) Elaborar um programa que Ihe pergunte neste ordem 



o seu nome; 
o seu sobrenome; 
o seu telefone; 
o seu endereqo; 
a sua profissao; 
a .sua idade. 


Deve sair impressa a sua "ficha" completa. 



10 INPUT "Entre cbm o seu nomed"; n$ 


20 INPUT "Entre com o seu sobrenomeP"; s$ 

30 INPUT "Entre com o seu telefonetl"; t$ 

40 INPUT "Entre com o seu endereqoQ"; e$ 


50 INPUT "Entre com a sua profissaoQ"; 
60 INPUT "Entre com a sua idadeD"; I 
70 PRINT "0 meu nome e|H";n$; s$ 

80 PRINT "Meu telef one e:Q"; t$ 

90 PRINT "Moro naD"; e$ 



100 PRINT "A minha profissao e:[]"; p$ 

110 PRINT "Atualmente tenticd";!; "Oanos" 

0«I» ^ Na linha 30 tem~se uma variavel STRING "t$" 
apesar de que a entrada seja um numero. 

0 seu TK 90X guardara o numero telefonico como uma cadeia 
de caracteres incluindo os espagos em branco. 
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4) Ax vai um programa que permite imprimir o dia da semana 
entrando-se com um numero de 1 a 7. 


10 INPUT "Entre com dia da semana como um numero de 1 a 7"; 
d 

20 CLS: PRINT "DiaCJ";d; "DeQ"; 

30 GOTO 10*d+40 


40 GOTO 10 

50 PRINT "segunda-feira": GOTO 10 
60 PRINT "terga-feira" : GOTO 10 
70 PRINT "quarta-feira" : GOTO 10 
80 PRINT "quinta-feira" : GOTO 10 
90 PRINT "sexta-feira" : GOTO 10 
100 PRINT "sabado" : GOTO 10 
110 PRINT "domingo" : GOTO 10 



Como se ve neste programa o numero apos o GOTO e substitux 
do por uma expressao numerica. 

Isto e muito util quando se quer introduzir um ele 
mento de escolba ou opqao para o salto. 

Assim devido a linha 30 o desvio sera para a li- 
nha 50 se voce entrar com o numero "1", para a linha 60 se 
voce entrar com o numero "2"... para a linha 110 se voce 
entrar com o numero "7". 

Neste programa se voce entrar com o "0" entao devi 
do a instruqao da linha 30 voce ira para a linha 40 que o 
devolvera para a linha 10 e ax comeqa tudo de novo, 

Caso o seu engano seja maior e voce entre com um 
numero maior que 7 entao devido a instruqao da linha 30 de 
de-se desviar para um numero de linha maior do que os que 
exis tern no programa. 

Felizmente r o TK 90X tern um BASIC bastante tole- 
rante para tais tipos de erros e se voce mandou que ele 
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saltasse para um numero de linha que nao existe entao ele 
pula para a linha mais proxima com numeraqao maior ou se 
nao existe nenhuma entao o programa simplesmente para. 

oTlT) Usaremos muito os dois pontos (:) que apareceram pe 
la primeira vez, desde que voce esteja respeitando a se- 
quencia indicada r.o livro... 

0 uso dos dois pontos (:) nos permite ter o . que 
se chama linha com instru^oes multiplas. 

Neste caso as linhas 50, 60, 70, 80, 90, 100 e 110 
todas tern duas instruqoes cada uma. 


5) Elaborar um programa que permita exibir uma tabela de con- 
versao de numeros binaries de 8 bits nos seus equivalentes 
decimals. 

Caso voce tenha a possibilidade de conectar o seu 
TK 90X com uma impressora (uma boa opqao seria ter uma 
GRAFIX...) is to lhe permit!ra ter uma tabela que lhe node 
ser muito util no futuro, entretanto nao esqueqa de mudar 
o PRINT para LPRINT. 

Deve-se usar obrigatoriamente neste programa um 
super aninhamento ou seja 8 "loops 11 F0R-T0/NEXT. 



10 FOR a * 0 TO 1 
20 FOR b = 0 TO 1 
30 FOR c - 0 TO 1 
40 FOR d = 0 TO 1 
50 FOR e » 0 TO 1 
60 FOR f - 0 TO 1 
70 FOR g - 0 TO 1 
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80 FOR h = 0 TO 1 

90 PRINT a*128 + b*64 + c*32 + d*l6 + e*3 + f*4 + g*2 + h; 

TAB 5; a;b;c;d;e;f;g;h 

100 NEXT h 
110 NEXT g 
120 NEXT f 
130 NEXT e 
140 NEXT d 
150 NEXT c 
160 NEXT b 
170 NEXT a 

Execute e veja se sai algo do seguinte tipo: 



* — *30**0** 

1 = -ocoooooi 

2 - ******i* 

o » ******ii 
i = o**o*i** 
5 - ***0*1*1 

5 - *00**11* 
? = oooocni 

* = ****!*** 

•9 « ****io*i 

1* ^ ****1*10 

11 = ****1*11 

12 = 0000110)9 

13 = aeoen**' 

x*. x ***<~ ■ 

IS *^ill 

iiiiiaae 
^ iiiii**i 
as* = hi 11 * a* 
- muon 
as a * mm** 

£53 » 111111*1 

5S4- x 1111111* 

ass * muni 


6) Usando tres "loops" vou elaborar um programa que permite 
ver uma linda sequencia de "padroes" coloridos que vao au- 
mentando com o.passar do tempo em complexidade e que lhe 
trara dedicado(a) Xeitor(leitora) uma distraqao durante 
uns 10 minutos.. 



10 FOR c = 50 TO 1 STEP-1 
20 FOR a - 0 TO 11 
30 FOR b = a TO 19 
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40 LET d = INT(a*b/c+(a+b)/c+c) : PAPER d-9*INT(d/9) 

50 PRINT AT a,b; AT a,31-b; AT 2I-a,b; 

AT 21-a, 31-b; 

60 PRINT AT b,a; "Q"$ AT b,31-a; AT 21-b,a; 

AT 21-b,31-a; 

70 NEXT b 
80 NEXT a 
90 NEXT c 

Execute e sinta-se urn(a)•verdadeiro(a) artista. 

Pode ate exclamar exotico, marcante, criativoj! 

G±3 1) PAPER codigo de cor (linha 40) define a cor (de 
0 a 7) do fundo da tela* 

2) INT e uma funqao que retorna a parte inteira de 
urn numero fracionario. 

3) PRINT AT y,x desloca a posiqao de impressao para 
uma generica coluna x e uma generica linha y sendo 

04 x^ 31 e 0^y^2, 


7) Embora este programa nao seja muito longo ele lhe dara co- 
mo resultado um jogo bero excitante, 

0 quadrado a esquerda (Figura 22 ) tem uma letra 
dentro do tnesrao. 

Quando ele se desloca para o outro lado da tela vo 
ce precisa tentar parar o mesmo na regiao indicada pela 
mesma letra. 

No inlcio do jogo o TK 9 fix lhe pergunta em que ni~ 
vel de dificuldade (quanto mais rapido tanto mais difi- 

' cil,..) voce quer participar do jogo e a sua escolha podf 
ser: 

{ 1 *—^bem facil (lento) 

2—•-dificii (rapido) 

3—-^muito dificil (muito rapido) 


Colocou-se urn sisterna de contagem e no final aparece 0 nu- 
mero total de acertos. 

10 REM *** Pare-o no lugar certo *** 

15 BORDER 5 : PAPER 7 : INK 2 

20 LET s$ = "abcdd" : LET t = 0 ; LET a = 0 

30 INPUT "Com nivel de dificuldade (1-3) : ";di:LET d= 

10 - 3*di 

40 INPUT "Quantas tentativas voce fara?D" ; n 
50 FOR s = 1 TO 5 

60 FOR % = 0 TO 15 : PRINT AT £,14+3*s; PAPER 0; 

: NEXT J l 

70 PRINT AT 0,15+3*s; s$(s) : NEXT s 
80 LET r = INT (RND*4+1) : LET A$ - s$(r) 

90 LET t - t+1 : LET £■ = 2 + 2*INT(RND*7) : LET c = 0 

100 PRINT AT 2.,c; «.$ : FOR J = 1 TO d : NEXT J 

110 LET c = c+1 : IF c <31 AND INKEY$=."" THEN GOTO 100 
120 IF INT((c-15)/3)< > r OR c = 17+3*r THEN GOTO 140 
130 SOUND .1,11 : LET a=a+l : GOTO 150 
140 SOUND .1,0 : LET r$ = INKEY$ 

150 PRINT AT 20,0; "a contagem e:Q"; a; "Qacertos emQ"; 

t; "D-tentativas" 

160 IF t < n THEN GOTO 80 

Execute e boa sorte, 

Tenha muito bom senso, logica e velocidade no dedo. 

Note que: 

1) bom senso e a logica natural ou seja aptidao inata da 
inteligencia para descobrir a verdade. 

2) logica e a ciencia que estuda as leis do pensamento e 
a arte de aplica-las corretamente na investigaqao e na 
demonstraqao da verdade. 
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3) dedo voce tem, nao e? 

0 bom senso e a logica voce ira aplicar para que a 
letra pare na zona certa como esta indlcado na Figura 22* 



8) Vamos mostrat neste programa a potencialidade do seu TK 
9^X para produqao de figuras. 

O.I^Consulte o nosso livro "Graficos no TK 90X" para 
maiores detalhes sobre este tenia. 

a) Ob tern- se uma serie de circunferencias ' ue no con junto 
dao a impressao de se ter urn cone 

10 BORDER RND*6+1: PAPER RND*6+1: INK 0 : CLS 
20 LET y - 1 : LET r = 1 
30 FOR x = 1 TO 180 STEP 5 
40 CIRCLE x,y,r 
50 LET y = y+2 : LET r = r+2 
60 NEXT x 

Execute e veja se sai algo deste tipo 



b) Neste programa desenham-se linhas retas de tal forma 
que elas acabam formando uma curva. 

1 voce caro(a) usuario(a) que deve indicar a cor 
da tinta e o espaqamento entre as retas. 

10 INPUT "Entre com a cor da tinta ?"; c 
20 BORDER 7 : PAPER 7 : INK c : CLS 
30 INPUT "Entre com um numero de 1 ate 25 e 
40 LET a = 0 

50 PLOT 0,175 : DRAW 0, -175 
60 PLOT 0,0 : DRAW 175,0 
70 FOR j = 175 TO 0 STEP-e 
80 PLOT 0 ,j : DRAW a,-j 
90 LET a = a+e 
100 NEXT j 

Execute e veja se sai algo deste tipo: 
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9) Elaborarei agora uma serie de pequenos programas para des 
tacar a influencia e o uso conjunto do PLOT e do DRAW per 
mitindo obter figuras de contorno fechado como por exem- 
plo um quadrado ou uma simulaqao dos raios solares. 

a) 10 REM *** 0 nascer do Sol *** 

20 BORDER 5 ; PAPER 1 : INK 6 
30 FOR j = 1 TO 100 
40 PLOT 127,87 : DRAW 100*RND, 70*RND 
50 PLOT 127,87 : DRAW -100*RND, 70*RND 
60 PLOT 127,87 : DRAW -100*RND, -70*RND 
70 PLOT 127,37 : DRAW 100*RND, -70*RND 
80 NEXT j 

90 PRINT INK 2; FLASH 1; AT 21,3; "Que Undo Sol.'.'.'" 
100 FOR z = 1 TO 499 : NEXT z : CLS : GOTO 30 



Execute e veja se sai algo parecido com o que esta in- 
dicado na Figura 25. 
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Figura 25 

b) 10 REM *** Vendo um Sol duplo *** 

20 BORDER 1 : PAPER 6 : INK 2 

30 FOR k=l TO 3 STEP 2 
40 FOR j=l TO 30 

50 PLOT 60*k, 87 : DRAW 55*RND, 75*RND 
60 PLOT 60*k, 87" : DRAW -55*RND, 75*RND 
70 PLOT 60*k, 87 : DRAW -55*RND, -75*RND 
80 PLOT 60*k, 87 : DRAW 55*RND, -75*RND 
90 NEXT j 
100 NEXT k 
110 PAUSE 100 

120 PRINT INK 3; FLASH 1; AT 21,4; "Mais do que um 
Sol?!?.’?!?" 

130 PAUSE 100 
140 CLS: GOTO 30 

Execute e admire dois "astros-rei" ao mesmo tempo. 

c) 10 REM *** desenhando um quadrado *** 

15 LET c = 0 

20 BORDER 0 : PAPER 1 : INK c 
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30 PRINT INK 2;' FLASH 1; AT 21,5; "Urn quadrado 
isolado" 

40 PLOT 50,50 : DRAW 50,0 : DRAW 0,50 : DRAW -50,0 : 
DRAW 0,-50 

50 PRINT INK 3; FLASH 1; AT 3,7; "Voce quer ver um 
quadrado de outra cor? (S/N)D INPUT r$: 

IF r$ = "n" OR r$ = "N” THEN GOTO 90 
60 PRINT INK 3; FLASH 1; AT 5,7; "Entre com o codigo 
de 2 a 7"; 

70 INPUT c 
S0 GOTO 20 
90 STOP 


d) 10 REM *** coleqao de quadrados *** 


20 BORDER 0: PAPER 7: INK 1 
30 FOR j = 10 TO 80 STEP 10 
40 PLOT j,j: DRAW j,0: DRAW 0,j: DRAW -j,0: 

DRAW 0,-j 
50 NEXT j 

60 PRINT INK 2; FLASH 1, AT 0,0; "Que linda coleqao 


de quadrados" 

70 FOR p = 1 TO 399 : NEXT p : CLS 
80 GOTO 30 

Gostou destes mini-programas? 

Sem duvida que sim,- pois o misterio das instrucoei 



PLOT e DRAW se desfaz diante de tanta simplicidade. 


10) Agora realmente voce admirara o seu TK 90X que em um mi- 
nusculo programs lhe mostrara um interessantissimo dese- 
nho. 


5 BORDER 0 : PAPER 7 : INK RND*6 + 1 

10 FOR j = 0 TO 1.7*PI STEP Pl/3 

20 LET x = 127: LET y = 88 : LET r = 100 


30 FOR k = j TO j + 1 STEP . 1 
40 PLOT x,y : DRAW r*COS k, r*SIN k 

50 DRAW r*SIN(PI/6-k) - r*COS k, r*COS(Pl/6-k)-r*SIN k 
60 DRAW - r*SIN(Pl/6-k), -r*C0S(Pl/6-k) 

70 LET x = x+.l*r*C0S k: LET y=y+.l*r*SIN k : LET r=.85*r 
80 NEXT k 
90 NEXT j 


Execute e veja se sai algo como isto: 




Figura 26 


11) Com este programs iremos obter os caracteres escritos em 
tamanho bent grande e depois com pequenas modificaqoes fa- 
remos aparecer um texto com caracteres bem grandes. 
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1 REM * escrevendo era tamanho maior*** » 

5 PAPER 6 : INK 1 : BORDER 1 <y=-< tyyf 

10 INPUT "Escolha o seu caracterd"; c$ 

20 IF LEN c$ > 1 THEN GOTO 10 

25 LET ei = PEEK 23606 + 256 *PEEK 23607 + 256 

35 LET ec = ei + 3 * (CODE c $ - 32)s~ “ ' “ 

/ Veja o que significa \ 

45 FOR j = 0 TO 7 a instruqao CODE no 

50 LET f * PEEK (ec + j) programa 27 do capi- 

60 FOR i = 0 TO 7 j 

70 LET b = £ - 2*INT(f/2) : LET f = INT(f/2) -- 

75 IF b = 0 THEN GOTO 90 _____ 

80 PRINT AT 21, (20-2*i); ^CAPS SHIFT + GRAPHICsN 

90 NEXT i M +s segurando a . ) 

( CAPS SHIFT / 

100 PRINT -/ 

110 NEXT j ~ 

100 PRINT 9 9 

Para passar da impressao de um unico caractere a uma ca< “ 
deia de caracteres basta fazer as seguintes modificaqoes: 


CAPS SHIFT + GRAPHICS 
+8 segurando a . 

CAPS SHIFT 


1) —10 INPUT "Entire com o textoQ"; c$ _ 

2) —Eliminar a linha 20 ~ oc ' 

7 /veja o Programa 25 no 

3 ) 30 FOR k = 1 TO LEN c$ -^v ^capitulo 21 para saber 

A) —40 LET ec = ei+8* (CODE (c$(k TOk)) - 0 q “* K e 

5)—120 NEXT k V 1 ^" 

——M 

O.IjNao esque^a que quando aparece "scroll" basta apertar 
* qualquer coisa que a tela sobe. 


12) Neste programa, usando READ, DATA, RESTORE, PLOT, DRAW, 
INVERSE, OVER etc. desenharemos uma capsula espacial (de- 
senho aproximado) apresentando-a 32 vezes na tela confer- 
me se mostra na Figura 27. 
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Figura 27 ‘ 


Ai vai o programa: 



5 BORDER 1 : PAPER 5 : INK 0 
10 REM***Dese«hando capsulas*** 
20 FOR v = 15 TO 135 STEP 40 
30 FOR h = 25 TO 235 STEP 30 
40 PLOT INVERSE 1; OVER 1; h,v' 
50 RESTORE 


60 READ m,x,y V ^raarca na 

70 IF m = 0 THEN DRAW INVERSE 1; OVER 1; x,y 
30 IF m = 1 THEN DRAW x,y 
90 IF m < > 9 THEN GOTO 60 
100 NEXT h 




Com esta instru^ao 
desloca-se a posi^ao 
de desenho para o / 
centro do proximo 
desenho sem que com 
is to se faqa alguma 
marca na tela 


110 NEXT v 

200 DATA 0,-12,7,1,24,0,1,0,-14,1,-24,0,1,0,14 
210 DATA 1,12,3,1,12,-8 

220 DATA 0,-7,-14,1,3,-8,1,-16,0,1,3,3,9,0,0 



220 


13) Ai vao 3 aplica 9 oes nas quais se utili 2 a a variavel subs- 
crita. 

a) Neste programa voce pode entrar com 15 numeros e os 
mesmos serao arranjados em ordem crescente e serao exi 
bidos juntamente com o seu logaritmo natural. 

Caso o seu numero seja negativo para o logaritmo 
surge a mensagem "Nao existe?" 

10 REM*** Or denaijao numerica*** 

20 DIM n(15) 

30 BORDER 0; PAPER 6; INK 1 
40 FOR j = 1 TO 15 
50 INPUT n(j) 

60 IF j=l THEN GOTO 130 
70 FOR k = j TO 2 STEP -1 
80 IF n(k) > = n(k-l) THEN GOTO 120 
90 LET aux = n(k) 

100 LET n(k) = n(k-l) 

110 LET n(k-l) = aux 
120 NEXT k 
130 NEXT j 

140 PRINT "Valor", "Logarltmo(e)" 

150 FOR i = 1 TO 15 
160 IF n(i) <0 THEN SOUND 3,20: GOTO 190 
170 PRINT n(i), LNn(i) 

180 GOTO 200 

190 PRINT n(i), "Nao existe?” 

200 NEXT i 

b) Agora voce vera um uso intenso do READ junto com va- 
riaveis indexadas do tipo STRING. 
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10 REM *** escolhendo um mes *** 

20 DIM m$(12,3) 

30 DATA "j an","fev","mar","abr","mai","j un","j ul"," 
"ago","set","out","nov","dez" 

40 FOR j = 1 TO 12 
50 READ m$(j) 

60 NEXT j 

70 LET r = INT(RND*12) + 1 
80 PRINT FLASH 1; AT 11,10; m $( r ) 

90 PAUSE 0 : SOUND .03,20 
100 LET e$ - INKEY$ 

110 IF e$ = CHR$ 13 THEN GOTO 90 

120 GOTO 70 . —. 


O.I.-J 


Experimente mudar a linha 20 para 
20 DIM m$(12,2) 
e veja o que ocorre. 

Houve algum corte? 


m 

kr 


c) Neste programa faremos do seu TK 90X um "inteligente" 
criador de textos (as vezes desconexos). 


10 REM*** Criando frases *** 

20 DIM fS(6,32) —-' re ? er ^® es P^° P ara ®J aria ' 

veis STRING cada uma podendo ter 

30 DIM p$(35,18)^ ate 32 caracteres 


40 FOR i“l TO 35 


reserva~se espaqo para 35 va- 
riaveis cada uma podendo ter 
ate 18 caracteres 


50 READ p$(i) at5 18 caracCer es 

60 NEXT i 

70 DATA "Maceio","Cabo Frio”, "Ponta Grossa", "Ibiuna", 
"Piedade" 

30 DATA "machucou", "C=riu", "contundiu", "quebrou", 

* 

"torceu” 


90 DATA "ntubro", " joelho' 1 , "braqo", "dedo”, "pe" 
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100 DATA n no jogo", "com a porta 1 ', "na escola", na 
discussao", "no rebuli$o" 

110 DATA "sofrendo", "agoniando", "passando mal", ft se 
machucando", "se estraqalhando" 

120 DATA "tanto", "desta forma", "daquela maneira", 
"deste jeito", "deste modo" 

130 DATA "por obra do acasol', "sem merecer", "por 
puro azar.", "dolorida.", "tao grave." 

140 FOR j = 1 TO 6 
150 READ f$(j) 

160 NEXT j 

170 DATA "Era um(a) jovem que nasceu em", que"’, 

M o seu" ' 

180 DATA "Um (a) rapaz■(moqa) que vivia em", "em certa 
epoca", "o seu" 

190 LET a = 0 
200 LET b ~ 0 

210 LET q = INT(RND*2)+1: LET a=3*(q-l) 

•215 LET a = a+1 

220 IF a - 3*q+l THEN GOTO 290 
230 PRINT f$(a) 

240 LET b * b+1 

250 LET r = INT(RND*5+1): LET k = 5*(b-l)+r 
260 PRINT p$(k) 

270 IF b >- 3 AND b < 7 THEN * GOTO 240 
280 GOTO 215 

290 INPUT "Mais uma vez (S/N)?D"; a$ 

300 IF a$ = "S" THEN RUN 

Alguns comentarios ravidos . sobre este programa 

Linhas 190 e 200 —*~servem de inicializaqao 

Linhas 210 e 260 —•-servem para que se imprima o conteudo 

guardado nas variaveis STRING f$ e p$ 
respectivamente 


Linha 210 ——serve para que se possa escolher um dado 
entre aqueles armazenados na matriz f$( ) 

Linha 250 —serve para que se possa escolher aleatoria- 
mente uma palavra ou frase entre aquelas 
armazenadas na matriz p$( )* 

Linha 270 —** serve para que se possa imprimir o conteudo 
de duas variaveis da matriz p$( ) antes de 
se tomar um novo elemento de f$( ), 

Linha 280 *" serve para que se imprima o conteudo de 

duas variaveis da matriz f$ antes de se to¬ 
mar um novo elemento de p$( )„ 

14) Neste programa tem-se um pequeno jogo instrutivo no qual 
o seu TK 90X Ihe exibe uma palavra em portugues e pede 
que voce entre com a correspondente em ingles e vice ver¬ 
sa. 

£ claro que nos limitaremos aqui a 30 nomes porem 
voce pode ampliar em muito esta lista... 

Perdoe-me caso voce indique algum sinonimo eele nao 

seja aceito no programa. 

10 REM**Portugues X Ingles** 

20 RAND 
30 LET c = 0 
40 LET p = 0 

50 DIM p$(30,10) : DIM i$(30,10) 

60 FOR j=l TO 30 
70 READ p$(j) 

80 READ i$(j) 

90 NEXT j 

100 INPUT "Como te chamas?D"; n$ 

110 IF LEN n$ >9 THEN LET n$ = n$(TO 9) 

120 PAUSE 250 
130 CLS 
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140 PRINT PAPER 6; INK I; AT 0,4; "PONTOS:d"; c 
150 PRINT PAPER 6; INK 1; AT 0,16; "PERGUNTAS:0"; p 
160 LET r = INT (RND*30)+1 
170 IF RND >.5 THEN GOTO 330 

180 PRINT PAPER 4; INK 1; AT 6,4; "Qual e a palavra 
inglesa"; 

190 PRINT PAPER 4; INK 1; AT 7,4; "parad"; p$(r); 

?aonoDDO" 

200 INPUT r$ 


210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 


LET p = p+1 

IF LEN r$< 10 THEN LET r$ = r$ + : GOTO 220 


IF r$ = i$(r) THEN GOTO 280 
SOUND .125,-7 : SOUND .5,-9 : SOUND .1,-11 
PRINT PAPER 3; INK 1; AT 12,4; "NaoO"; n$; "Da 
palavra e" 

PRINT PAPER 3; INK 1; AT 13,4; i$(r); 'CO-tDDDDDQ " 

GOTO 120 

SOUND .125,9 : SOUND .25,3 : SOUND .5,7 : SOUND 1,6 
PRINT PAPER 3; INK 1; AT 10,4; "Parabens esta correto!" 
LET c — c+1 


IF c= 30 THEN GOTO 430 
GOTO 120 

PRINT PAPER 4; INK 1; AT 6,4; "Qual e a palavra 


portuguesa" 

340 PRINT PAPER 4; INK 1; AT 7,4; "paraO”; i$(r);"0? 

□□□□□ODD " 


350 INPUT r$ 

360 LET p = p+1 

370 IF LEN r$< 10 THEN- LET r$ = r$ + : GOTO 370 

380 IF r$ = p?(r) THEN GOTO 230 

390 SOUND .25,0 : SOUND .25,2 : SOUND .25,4 : SOUND .25,5 
400 PRINT PAPER 3; INK 1; AT 12,4; "Naod"; n$; "Da pa¬ 
lavra e D" 


410 PRINT PAPER 3; INK 1; AT 13,4; p$(r) 

420 GOTO 120 

430 PAPER 0 : BORDER 0 : CLS 

440 PRINT PAPER 5 ; INK 1; AT 2,2; "Ate que enfim!! 
450 PRINT PAPER 5 -: INK 1 : AT 3,2: "Voce conseguiu 
acertar 30" 

460 PRINT PAPER 5 : INK 1 : AT 4,12; "perguntas" 

470 FOR r = 1 TO 36 STEP 3 
480 CIRCLE INK 6; 125, 70, r 
490 NEXT r , 

500 PAUSE 0 : PAPER 7 : BORDER 7 
510 CLS 
520 STOP 

530 DATA "macaco", "ape" 

540 DATA "braqo", "arm" 

550 DATA "mail", "bad" 

560 DATA "belo", "beautiful" 

570 DATA "preto", "black" 

5S0 DATA "carvao", "coal" 

590 DATA "cruz", "cross" 

600 DATA "fundo", "deep" 

610 DATA "diamante", "diamond" 

620 DATA "terra", "land" 

630 DATA "envelope", "envelope" 

640 DATA "campo", "field" 

650 DATA "alimento", "food" 

660 DATA "genio", "genius" 

670 DATA "chapeu", "hat" 

680 DATA "interior", "indoor" 

690 DATA "beijo", "kiss" 

700 DATA "trabalho", "labor" 

710 DATA "maquina", "machine" 

720 DATA "norte", "north" 


TT 
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730 DATA "ostra", "oyster" 

740 DATA "pico", "peak" 

750 DATA "restaurar", "restore" 

760 DATA "sardinha", "sardine" 

770 DATA "irmandade", "sorority" 

730 DATA "tarefa", "task" 

790 DATA "trinta”, "thirty" 

800 DATA "vencedor", "victor" 

810 DATA "voz", "voice" 

820 DATA "valsa", "waltz" 

15) Este programa e um pequeno quebra-cabega ou "raxa kuka" e 
vou-lhe indicar inicialmente as normas a seguir. 

Para comegar, talvez necessite de lapis e papel,po 
rem se voce proceder assim seria como se voce estivesse 
trapaceando. 

O'objetivo e achar a area de um trapezio ou seja 
a area de um triangulo soraada a area de um retangulo. 

0 programa lhe perguntara "Um ou dois jogadores?"* 

Tecle m ou IT] e ai # pressione a f ENTER 1 . 

Em seguida lhe perguntara o home ou os nomes dos 

jogadores e depois de ter introduzido as informagoes re- 

. -- -*i 

quendas tecle de novo ENTER * 

Ai o TK 90X lhe moStrara um retangulo verde com um 
triangulo azul em cima. 

Voce sera informado(a) sobre o comprimento de cada 
um dos lados e lhe sera pedido para calcular a area to¬ 
tal* 

Caso voce nao consiga dar a resposta correta ini¬ 
cialmente o TK 90X lhe perguntara so sobre a area do re¬ 
tangulo. 

Se desta vez a sua resposta for correta,entao mos¬ 
trara o triangulo de novo perguntando-lhe a respeito da 
area so do triangulo. 
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Caso alguraa das suas respostas (triangulo ou retan 
gulo) esteja errada, o TK 90X lhe mostrara a area total 
correta. 

Entretanto se a sua primeira resposta a (total) es 
tiver correta, esta tudo ‘terminado "gatao" ("gatinha") e 
como premio vais ganhar 2 pontos, porem se acertas em 
duas vezes so teras 1 ponto. 

Ai vai uma "dica": a area total pode ser obtida 
pela formula _ 


BxC + y Bx (A-C) 

Bern ai vai o programa propriamente dito: 

10 REM ** ire as ** 

15 BORDER 3: PAPER 6 

20 LET d = 40 : LET e = 90 f j 

30 DIM s(2) J Verde 

40 DIM p$(2,9) , Li r~Z 

50 RAND : LET s(l) = 0 : LET s(2) = 0 
60 INPUT "1 ou 2 jogadores?0"; n Fi.gura 28 

70 IF n <1 OR n > 2 THEN GOTO 60 

80 PRINT AT 10,3; "Quais sao os nomes dos jogadores?" 
90 FOR j=l TO n 

100 PRINT AT 13,4; "JogadorO";j 
110 INPUT p$(j) 

120 NEXT j -v 

130 CLS / , \ 


Figura 28 


140 FOR z = 1 TO n 
150 LET a = INT(RND*7) + 4 
160 LET b = INT (RND*8) + .3 
170 LET c = INT (RND*5) + 3 
180 IF c > = a THEN GOTO 150 
190 LET sa = a*8 
200 LET sb = b*8 
210 LET sc = c*8 
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220 FOR j = d TO d - 1 + sc 

230 PLOT e,j 

240 DRAW INK 4; sb,0 

250 NEXT j 

260 PLOT e, d+sc 

270 DRAW INK X; sb, sa-sc 

280 DRAW INK 1; 0, - (sa-sc) 

290 FOR j = d + sc TO d-1 + sa 

300 FOR k = e - i + sb TO e STEP-1 

310 IF.POINT (k,j) = 1 THEN LET k - 60: GOTO 340 


Esta fungao informa se uraa 

330 PLOT INK 1; k,j V. determinada posigao da tela 

34C» NEXT k ) (coluna x, de 0 a 255 e linha 

340 NEXT k -/ y de 0 a 175) foi desenhada 

350 NEXT j ( _ ou a tivada voltando 1 se est? 

360 PRINT AT 16-INT a/l/'n^Ia'''') na S 0r de IN ^ e 0 se 

J esta na cor do, 

370 PRINT AT 18, INT 11 + b/2; b (PAPER -^ 

380 PRINT AT INT 16 - c/2,9; c ’ 

390 PRINT AT 20,0; p$(z^'*, qual e a area total?" 

400 INPUT resposta 

410 IF resposta — c*b + b/2 * (a—c) THEN GOTO 680 

420 SOUND .8,-8 : SOUND .1,-10 : SOUND .125,-12 

430 PRINT AT 20,0; p$(z);", qual e a area do retangulo? 

— |pi **0 espagos em branco 

440 INPUT ret 

450 IF ret = c*b THEN GOTO 500 

460 SOUND .8,-8 : SOUND .1,-10 : SOUND .125,-12 

470 PRINT AT 20,0, "A area do retangulo e "; c*b; 

"□□□□□□□□□□□□aoooaoao" 

/.o/< oort' ===5= *—^20 aspaqos em branco 


480 PAUSE 220 
490 GOTO 640 

500 PRINT AT 20,0; p$(z); ",qual e a area do triangulo? 

"OOOGGODODD □□□□□□□□□□ ” 

510 INPUT tria^““** 2 * espa?os 60 branco 
520 IF triang = b/2 * (a-c) THEN GOTO 570 
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530 SOUND .8,-8 : SOUND .1,-10 : SOUND .125,-12 

540 PRINT AT 20,0; "A area do triangulo e "; b/2*(a-c); 

•^□□□□amoaoooooooann" 

ssrt -DMTCTT oort ' ======= ^~—espa 9 os em branco 


550 PAUSE 220 e spa 9 os em oranco 

560 GOTO 640 

570 PRINT AT 20,0; p$(z); ", qual e a area total? 

"□□□□□□□ooaamooooacin" 

Sftfl txtottt ..20 espa 9 os em branco. 


580 INPUT resposta -“*■ espa s=s ^anco. 

590 IF resposta = b*c + b/2 * (a-c) THEN GOTO 620 
600 SOUND .8,-8 : SOUND .1,-10 : SOUND .125,-12 
610 GOTO 640 

620 LET s(z) = s(z) + 1 : SOUND .125,-5 : SOUND .125,-7 : 

SOUND .125,-9 
630 GOTO 660 

640 PRINT AT 20,0; "A area total e b*c + b/2 * (a-c); 

"□□□□□□□□□□□□□□OOODOD" 


650 PAUSE 220 i=5 ~^’ 11 espa 9 os em branco 

660 CLS 

670 GOTO 700 

680 SOUND .25,0 : SOUND .25,-1': SOUND .25,-3 : 

SOUND .25,-5 
690 LET s(z) = s(z) + 2 

700 PRINT AT 1,4; p$(l); s (1); "□DO"; p$(2); 

s(2) 

710 NEXT z 
720 GOTO 140 
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